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Vorwort 

Workshop-6\e Buchreihe für den engagierten Computerbesitzer-wurde 
nach völlig neuem Konzept entwickelt, das sowohl die Möglichkeiten 
moderner Computerprogramme als auch aktuelle didaktische Methoden 
berücksichtigt. Die Aufgabenstellung: 

Nicht einfach die Funktionsvielfalt eines Programmpakets zu demonstrie¬ 
ren, sondern vor allem die Fähigkeit der praktischen Umsetzung zu 
trainieren. Was herauskam, ist ein ausgefeiltes Praxiskonzept: mit fun¬ 
diertem Startwissen, illustriertem Tutorium, zahlreichen Übungsideen, 
nützlichen Tips und Kniffen, Fehlerarten und Lösungsvorschlägen sowie 
knappem Referenzteil. 

Das Herzstück eines Workshops ist das Tutorial. Es ist in zehn Sitzungen 
organisiert, und so angelegt, daß ein nützliches Programmprodukt mit 
allem Hintergrundwissen hergestellt wird. Innerhalb kürzester Zeit sind 
daher praktische, transferierbare Arbeitsergebnisse sichtbar. Dann - bei 
steigender Erfahrung - bleiben Know-how und Referenz die nützlichen 
Ratgeber für die tägliche Praxis. Workshop - die Buchreihe, die mit Ihrem 
Wissen und Erfahrungsschatz mitwächst. 

Der Autor Andreas Maslo trägt mit seinen Erfahrungen als freiberuflicher 
Ingenieur und EDV-Autor wesentlich dazu bei, daß Sie Power Basic von 
Anfang effektiv nutzen und auch noch Spaß dabei haben. Bedanken 
möchte er sich bei Herrn Schlaak vom Verlag Markt & Technik und bei 
Frau Baumann von .TXT-Publishing, ohne die dieses Buch nicht realisierbar 
gewesen wäre. Besonderer Dank gilt seiner Frau für ihre Unterstützung 
und Hilfe bei diesem Projekt. 
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Vorwort 


Wir hoffen, daß Ihnen dieses Buch gefällt und weiterhilft. Dennoch - es 
gibt nichts, was man nicht noch verbessern könnte. Teilen Sie uns doch 
bitte Ihre Meinung zu Buch und Programm mit. Sie helfen damit anderen 
Lesern und uns, das Workshop-Konzept noch besser nach Ihren Bedürf¬ 
nissen auszurichten. Vielen Dank. 

Die Herausgeber 

.TXT Publishing GmbH 
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Kapitel 1: 
Einführung 

7.7 Programmieren mit Power Basic 

Basic wurde als Programmiersprache für Lehrzwecke entwickelt. War 
Basic (»Beginners 7 All Purpose Symbolic Instruction Code«) zu Beginn 
lediglich als Interpreter-Dialekt erhältlich, so gibt es heute zunehmend 
mehr Compiler-Dialekte, die sich durch ihre strukturierte und modulare 
Programmierung auszeichnen. Die Leistungsfähigkeit kann durchaus mit 
anderen Programmiersprachen wie z.B. C oder Pascal konkurrieren. Im 
Gegensatz zu einem Interpreter wird ein Programm bei einem Compiler 
nicht zeilenweise, sondern komplett vor der Programmausführung zu 
einem eigenständig ablauffähigen Maschinenprogramm übersetzt. Da¬ 
durch sind Programme schneller in der Ausführung und ohne den eigent¬ 
lichen Compiler lauffähig. Auch bei Power Basic handelt es sich um einen 
Compiler, der aus einer Weiterentwicklung des Turbo-Basic-Compilers 
entstanden ist. Es ist einer der preiswertesten und leistungsfähigsten 
Basic-Compiler auf dem derzeitigen Software-Markt. 

Leistungsmerkmale von Power Basic 

Wie alle anderen populären Programmierwerkzeuge, verfügt auch Power 
Basic über eine integrierte Entwicklungsumgebung, die sämtliche Dienst¬ 
programme, wie Editor, Compiler, Linker, Debugger und Hilfesystem unter 
einer einheitlichen Benutzeroberfläche vereint. Innerhalb dieser Ober¬ 
fläche werden Sie Ihre Programme schreiben, bearbeiten, testen und 
letztendlich in Maschinensprache übersetzen. Ein wichtiges Qualitäts- 
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merkmal von Software ist, wie eh und je, die mitgelieferte Dokumentation. 
Hier nimmt Power Basic eine Spitzenstellung ein. Es wird neben einem 
Benutzerhandbuch, das den Umgang mit der Entwicklungsumgebung, 
die Sprachsyntax und wesentliche Programmierthemen erläutert, ein 
Referenzhandbuch mitgeliefert, in dem sämtliche Power-Basic-Befehle in 
alphabetischer Reihenfolge ausführlich beschrieben werden. Einige Be¬ 
sonderheiten machen Power Basic auch für umfassende professionelle 
Programmentwicklungen zu einem geeigneten Werkzeug. Es bestehen 
vielfältige Möglichkeiten, um die Code-Generierung zu beeinflussen. So 
kann z.B. spezieller Maschinencode für einen Coprozessor oder den 
80286-Hauptprozessor wahlfrei erzeugt werden und nicht benötigte 
Module aus der Runtime-Bibliothek brauchen in ein Maschinenprogramm 
nicht mit eingebunden zu werden. Binär kodierte Dezimalzahlen und 
Zeichenketten, die den gesamten Speicher, also mehr als 64 Kbyte 
belegen können, sind weitere, besonders herausragende Merkmale. Auch 
wenn Sie mit diesen Leistungsmerkmalen im Moment noch nicht viel 
anfangen können, so werden Sie diese im Verlaufe Ihrer Programmierpro¬ 
jekte sicherlich nicht mehr missen wollen. 

Ein Basic für alle 

Power Basic ist eine Programmiersprache, die sowohl für Anfänger als 
auch für professionelle Programmierer gleichermaßen geeignet ist. Kleine 
Hilfsprogramme lassen sich ebenso programmieren wie große komplexe 
Anwendungsprogramme. Der große Wortschatz mit umfangreichen DOS- 
Befehlen, Routinen zur Manipulation von Datenfeldern, vielfältigen String¬ 
manipulationen und Funktionen zur Speicherverwaltung machen die 
Programmierung zum Vergnügen. Mit Power Basic können Sie Ihre eigene 
Textverarbeitung, Dateiverwaltung oder Ihr eigenes Grafik- oder Kommu¬ 
nikationsprogramm erstellen. Programme, die ursprünglich für den GW- 
Basic-Interpreter, der in Verbindung mit dem MS-DOS-Betriebssystem 
ausgeliefert wird, entwickelt wurden, können ohne große Änderungen von 
Power Basic übersetzt werden. 

Warum programmieren? 

Obgleich für fast jeden Anwendungsbereich entsprechende Software 
erhältlich ist, ist auch heute die Anschaffung einer Programmiersprache 
wie Power Basic durchaus sinnvoll. Sie können sich Ihre dringend be¬ 
nötigte Software, z.B. kleine Dienstprogramme, ohne zusätzliche Kosten 
selbst und vor allen Dingen genau nach Ihren eigenen Bedürfnissen 
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entwickeln. Bedenken Sie, daß Sie bei Ihren eigenen Programmen immer 
über den Quelltext verfügen und so Anpassungen, die etwa durch 
erweiterte Hardware-Bedingungen notwendig werden, selbst vornehmen 
können. Daß die Programmierung eines optisch ansprechenden und 
umfangreichen Programms gar nicht so schwierig ist, soll dieses Buch 
demonstrieren. 

1 *2 Wie Sie mit diesem Buch arbeiten 

Aufbau des Buches 

Das Buch besteht im wesentlichen aus fünf Teilen. Diese sollen Sie sowohl 
mit dem Umgang der Benutzeroberfläche von Power Basic als auch mit 
der Anwendung der Programmiersprache vertraut machen. 

Einführung 

In dem ersten Kapitel erläutern wir zunächst den Einstieg in Power Basic. 
Dazu werden wir neben den Hardware- und Softwareanforderungen die 
Installation und die wichtigsten Elemente der Programmiersprache Power 
Basic besprechen. 

Tutorium 

Ist das Herzstück eines jeden Workshops. Um Power Basic möglichst 
anschaulich darzustellen, wird im Laufe des Tutoriums eine »Einnahmen-/ 
Uberschußverwaltung« mit grafischer Oberfläche programmiert. So ent¬ 
steht eine vielfältige Sammlung von nützlichen Bausteinen, die Sie in 
jedem anderen Programm benutzen können. Das Tutorium, das aus 
insgesamt zehn Sitzungen besteht, demonstriert die wichtigsten Sprach- 
eigenschaften von Power Basic. Ferner wird eine systematische Anleitung 
zu einer strukturierten und modularen Programmierung gegeben. Jede 
Sitzung besteht aus einem Informationsteil, der die Grundlagen erarbeitet, 
einem Praxisteil mit Schritt-für-Schritt-Lösungen und einem Workshop, der 
zur Kontrolle des Erarbeiteten dient und Hinweise zum Üben gibt. 

Mit den Erkenntnissen, die Sie in diesem Kapitel gewinnen, werden Sie 
später selbst in der Lage sein, leistungsfähige Programme zu entwickeln. 
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Know-how 

Hier werden spezielle Themen zu Power Basic behandelt. Neben der 
Fehlerbeseitigung und besonderen Tips, stellen wir insbesondere den 
Kommandozeilen-Compiler und Toolboxen zu Power Basic vor. 

Referenz 

Dieses Kapitel besteht aus drei Teilen. In der Menüreferenz werden die 
Power-Basic-Menübefehle erklärt, und in der Sprachreferenz sind die 
Power-Basic-Anweisungen themenorientiert aufgeführt. Zusätzlich bespre¬ 
chen wir einige Standardaufgaben und ihre Lösungsmöglichkeiten. 


Anhang 

Im Anhang werden Begriffe erläutert, die in Verbindung mit der Program¬ 
mierung wichtig sind. Ferner finden Sie dort die kompletten Quelltexte und 
einige wichtige Tabellen. 

Befehlskarte 

Das Allerwichtigste auf einen Blick. 

Kleine Leseanleitung 

Haben Sie Power Basic bereits installiert und sind mit den Grundlagen 
der Sprache vertraut, so können Sie direkt mit dem Tutorium beginnen. 
Dieses ist chronologisch aufgebaut, daher ist es nicht sinnvoll, zwischen 
den einzelnen Sitzungen zu springen. Arbeiten Sie das Kapitel Sitzung 
für Sitzung durch und versuchen Sie, die abgedruckten Programme 
nachzuvollziehen und durch die vorgeschlagenen Übungen zu erweitern. 
Wenn Sie das Programm nicht in der Gesamtheit nutzen wollen, können 
Ihnen einzelne Routinen dennoch Anregungen für eigene Programme 
geben. Daher wurde bei unserem Programmierprojekt »Haushalt« auf die 
strukturierte und modulare Programmierung besonderer Wert gelegt. 
Haben Sie diesen Arbeitsteil unseres Buches einmal durchgearbeitet, kann 
er auch als Nachschlagewerk für spätere Programmieraufgaben dienen. 
Mit den Kapiteln, die spezielle Informationen und Referenzen enthalten, 
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werden Sie später in erster Linie arbeiten. Sie sollten sich nach dem 
Tutorium unbedingt mit dem Kapitel Know-how befassen, da es einige 
sehr sinnvolle Hinweise für Ihr weiteres Programmieren enthält. 

1*3 Schreibweisen 

Da Power Basic in der derzeitigen Programmversion 2.10 nicht über eine 
Mausunterstützung verfügt, werden sämtliche Eingaben und Menübefehle 
durch die Tastatur eingegeben bzw. aktiviert. Um eine Menüfolge in 
unserem Buch hervorzuheben, wird diese in kursiver Schrift dargestellt. 
Auch Variablennamen, Basic- und Compiler-Anweisungen sowie Pro¬ 
grammaufrufe werden durch Kursivschrift hervorgehoben. Dateinamen 
und Verzeichnisnamen werden in Großbuchstaben gedruckt. 

Beispiele: 

Menüfolgen: 

File —► Write To 

Tastaturbefehle: 

IReturn 1 Eingabetaste drücken 

[Aitl + fFi] |Ait 1 - und dU-Taste gleichzeitig drücken 

(ED Funktionstaste dD drücken 

Bei diversen Funktionen öffnen sich Eingabefenster, durch die bestimmte 
Angaben vom Programmierer abgefragt werden. Diese Eingaben werden 
erst bei Betätigung der [Return [ -Taste übernommen, bei Betätigung der 
[esc] -Taste werden sie ignoriert. 

Folgende Symbole werden verwendet: 

Ein Hinweis ist eine Empfehlung oder ein Rat. Wenn Sie ihn ignorieren oder 
vergessen, passiert nicht allzuviel. Im schlimmsten Fall meldet der Compiler 
einen Fehler, den Sie korrigieren müssen. 

a Wenn dieses Symbol auftaucht, ist Gefahr in Verzug. Es gibt zum Beispiel 
Tippfehler, die der Compiler nicht erkennt. Bei sollen Fehlern läuft das 
Programm falsch oder stürzt ab. 
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1.4 Hardware- und Software-Anforderungen 

Power Basic ist auf jedem IBM PC/XT/AT oder PS/2 sowie Kompatiblen 
mit 640 Kbyte Hauptspeicher und dem Betriebssystem MS-DOS, ab 
Version 2.0 oder dazu kompatiblen Betriebssystemen, wie z.B. DR-DOS, 
lauffähig. Beachten Sie, daß die Netzwerkunterstützung erst ab MS-DOS 
3.1 verfügbar ist. Arbeiten Sie z.B. mit MS-DOS 2.11, können Sie keine 
Netzwerk-Befehle verwenden. 

Sämtliche Hardware-Komponenten des Rechners werden von Power Basic 
nahezu optimal unterstützt. Die Programmentwicklung ist dennoch auch 
auf einem kleinen PC mit nur einem Diskettenlaufwerk möglich. In diesem 
Fall starten Sie Power Basic zunächst von einer Diskette und legen 
anschließend eine Arbeitsdiskette für Ihr Programm ein. Falls Sie allerdings 
nur über Diskettenlaufwerke mit einer Kapazität von 360 Kbyte verfügen, 
werden Sie sich zunächst genauer mit der Installation befassen müssen. 
Darauf werden wir aber später noch eingehen. Je besser Ihr Rechner 
ausgestattet ist, desto mehr haben Sie von Power Basic. Sie können zwar 
auch mit einem PC ohne Coprozessor Programme mit Coprozessor-Unter¬ 
stützung bzw. ohne 80286-Hauptprozessor Code für den 80286-Haupt- 
prozessor erzeugen, lauffähig sind diese Programme aber nicht mehr auf 
diesem PC. Auch läßt sich die optimale Grafikauflö sung n ur mit eine r 
installierten VGA-Grafikkarte ausnutzen. Wenn Sie keine Grafikprogram¬ 
me programmieren wollen, können Sie allerdings auf eine Grafikkarte 
verzichten. 

Zusammenfassend läßt sich also sagen, daß Power Basic kaum Anforde¬ 
rungen an die Hardware stellt. Lediglich ausreichend Arbeitsspeicher und 
das richtige Betriebssystem sind notwendige Kriterien für den Einsatz. Für 
ein einfacheres Arbeiten sollte eine Festplatte und zum Ausnutzen sämtli¬ 
cher Sprachanweisungen eine VGA-Grafikkarte vorhanden sein. Für die 
Beschleunigung von rechenintensiven Programmen kann aber auch die 
Anschaffung eines Coprozessors sinnvoll sein. Power Basic ist einer der 
flexibelsten Basic-Compiler, der derzeit erhältlich ist. Keiner unterstützt 
kleine Rechner so gut, wie gut ausgestattete. 
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Lieferumfang 

Power Basic 2.10 wird in der deutschen Fassung mit einem Benutzerhand¬ 
buch und einem Referenzhandbuch ausgeliefert. Beide Bände sind jeweils 
ca. 400 Seiten stark und enthalten alle wesentlichen Informationen, die 
Anfänger und Fortgeschrittene für die Programmentwicklung benötigen. 
Die Software wird sowohl auf einer äVZ-Diskette (1.2 Mbyte) als auch 
auf zwei 3 V 2 n -Disketten (720 Kbyte) ausgeliefert. Die Menüstruktur enthält 
ausschließlich englische Begriffe, lediglich die Hilfsinformationen sind in 
deutsche Sprache übersetzt. Nach einer kurzen Eingewöhnungszeit er¬ 
geben sich hierdurch allerdings keine Probleme. Schließlich sind auch alle 
Befehle der Basic-Syntax aus der englischen Sprache entnommen. Für die 
Installation benötigen Sie entweder nur die 5 //-Diskette oder die 3 1 /$- 
Disketten. Erläuterungen zu den englischen Menüs sind in diesem Buch 
im Referenzteil enthalten. 


7.5 Installieren und Einrichten 

Bevor Sie Power Basic auf Ihrem Rechner installieren, sollten Sie zunächst 
Sicherungskopien des Programms hersteilen. Sollte diese Arbeitskopie 
später einmal beschädigt werden, so haben Sie immer noch die Original¬ 
disketten. Das Anfertigen von Sicherungskopien wird auch ausdrücklich 
von den Software-Herstellern empfohlen. Um eine Sicherungskopie zu 
erstellen, geben Sie folgendes nach dem Systemprompt C> ein: 

DISKCOPY Lw: Lw: [Return] 

Lw: steht dabei für das Diskettenlaufwerk, in das Sie wechselweise die 
Originaldiskette und die Diskette für die Arbeitskopie einlegen. 

Installieren von Power Basic 

Um Power Basic auf einem Rechner mit nur einem 360-Kbyte-Disketten- 
laufwerk installieren zu können, sollten Sie Ihren Händler bitten, die 
Software zunächst auf das kleine PC-Format umzukopieren, da die 
mitgelieferten Originaldisketten nicht von diesem PC lesbar sind. 

Im nachfolgenden werden wir die Installation auf einem Rechner mit nur 
einem Diskettenlaufwerk und alternativ auf einem Rechner mit einer 
Festplatte und einem Diskettenlaufwerk erläutern. 
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Installation auf Diskette 

Eine Installation auf einer Diskette gestaltet sich je nach Diskettenformat 
(360 Kbyte oder 1.2 Mbyte) unterschiedlich. Nehmen wir an, Sie instal¬ 
lieren das Programm auf einer 5V4 n -Diskette mit 1.2 Mbyte. Fertigen Sie 
sich zunächst eine neue Sicherungskopie der Originaldiskette an. An¬ 
schließend löschen Sie die Beispieldateien, den Kommandozeilen-Com- 
piler, den Sie nur für größere Programme benötigen, das Konfigurations¬ 
programm (natürlich erst nach der Installation) und die Datei 
TWORD.DAT. Die Befehle, die Sie nach dem Prompt eintasten, lauten 
dann wie folgt: 

DISKCOPY A: A: I Return | 

Nach dem Kopiervorgang sollten Sie darauf achten, daß die Arbeits- und 
nicht die Originaldiskette im Laufwerk liegt. 

DEL *.bas I Return| 

DEL *.DAT [Return] 

Anschließend können Sie Power Basic mit dem Programm PBINST nach 
Ihren eigenen Bedürfnissen konfigurieren. Das Programm PBINST können 
Sie dann ebenfalls löschen. 

DEL PBINST.EXE [Return] 

Auf der Diskette befinden sich nunmehr nur noch die Dateien PB.EXE, 
REGNAMES.INC und PBHELP.PBH. Verfügen Sie lediglich über das 
360-Kbyte-Diskettenformat, dann sollten Sie sich eine Diskette erstellen, 
auf der nur das Hauptprogramm PB.EXE enthalten ist. In diesem Fall 
müssen Sie allerdings auf die integrierte Hilfsfunktion von Power Basic 
verzichten. 

Installation auf einer Festplatte 

Um das Programm auf einer Festplatte zu installieren, sollten Sie zunächst 
ein Verzeichnis für Power Basic einrichten. Anschließend wechseln Sie 
in dieses Verzeichnis und kopieren dorthin sämtliche Dateien der Origi¬ 
naldisketten. Dazu legen Sie Ihre Arbeitskopie bzw. Arbeitskopien in das 
Diskettenlaufwerk A: oder B: ein. Nehmen wir an, unser Verzeichnis soll 
den Namen »PB« erhalten und unser Festplattenlaufwerk hat den Lauf¬ 
werksbuchstaben »C«. 
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Die Originaldiskette haben wir in Laufwerk A: eingelegt. Dann wären 
folgende Befehle auf Kommandozeilenebene hinter dem Systemprompt 
C> einzutippen: 

MD PB [ Return 1 
CD PB | Return 1 
XCOPY A: I Return 1 

Nun können Sie Power Basic durch Eingabe von 

PB |Return) 

direkt aufrufen. Um Power Basic auch aus anderen Verzeichnissen starten 
zu können, sollten Sie über den PATH -Befehl in der AUTOEXEC.BAT den 
Verzeichnispfad global setzen. Hinweise hierzu entnehmen Sie bitte Ihren 
Betriebssystem-Handbüchern. 

Konfigurieren von Power Basic 

Mit Power Basic wird das Dienstprogramm PBINST.EXE mitgeliefert, mit 
dem Sie Power Basic an Ihre eigenen Bedürfnisse anpassen können. 
Notwendig ist die Konfiguration allerdings nicht. 


UillkoMnen zum InstallationsprograMM uon PouerBASIC Z.l! 

Dieses ProgranM erlaubt es Ihnen die Uoreinstellungen für Conpiler, 
Ungebung und das Inhaltsverzeichnis von den aus PouerBASIC Jedesnal 
starten uird zu treffen. Sie können ebenfalls die Farben für Menüs 
und andere Infornationen auf den Schirn und den Uideononitor den Sie 
benutzen einstellen. Sie können die Konnandos Tür den Editor ändern 
und an Ihre Uünsche anpassen. Auperden können Sie die Standardein¬ 
stellungen für die Optionen in Editor uählen. Schließlich können Sie 
in den PrograMM noch die Größe Tür das Fenster Uatch und Output in 
der Integrierten EntuicklungsuMgebung uählen. 

Falls Sie dieses PrograMM benutzen, Müssen Sie eine Kopie des PouerBASIC- 
CoMpilers <PB.EXE> den Sie installieren uollen, Im gleichen Inhalts¬ 
verzeichnis uie das PBINST-PrograMM haben. 

Sie können /B als ParaHeter Tür PBINST angeben um das PrograMM iM Schuarz'' 
Ueiß Modus zu starten. /C startet Im Farbnodus. Uenn Sie keinen ParaMeter 
angeben, uird der UideoModus autoMatisch festgestellt. 

PouerBASIC Uersion Z.l ist Copyright <c> 1990 by Robert S. Zale. Alle 
Rechte Vorbehalten. Distribution Im deutschsprachigen Raun: 

KirschbauM Softuare GMbH, Kronau 15, U-8091 EMMering Tel.: 08067/'1016 

Drücken Sie ESC für Abbruch oder eine andere Taste zum UeiterMachen... 


Bild 1.5.1: 

Der Eröffnungs¬ 
bildschirm von 
PBINST 


Mit PBINST können Sie sowohl Farbeinstellungen als auch Tastaturbele¬ 
gungen für den Editor verändern. Suchpfade lassen sich z.B. für Quell¬ 
dateien und Units festlegen. Letztere, wie auch diverse Menüeinstellungen, 
sind ebenso über die Power-Basic-Oberfläche einstellbar. 
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Die durch PBINST gemachten Änderungen werden nicht in eine spezielle 
Konfigurationsdatei, sondern direkt in das Programm PB.EXE geschrieben. 
Sie sollten zunächst mit Power Basic gearbeitet haben, um Ihre optimalen 
Einstellungen zu kennen. Natürlich können Sie PBINST ohne große Gefahr 
aufrufen und sich anschauen, welche Einstellungen möglich sind, da vor 
dem Speichern der Informationen in das Hauptprogramm PB.EXE eine 
Sicherheitsabfrage erscheint. 

Sie sollten PBINST erst anwenden, wenn Sie mit der Bedienung des Editors 
oder der Farbgebung nicht zufrieden sind, da die wichtigen Einstellungen, 
wie z.B. Menüvorgaben und Festlegung der Optionen, einfacher über das 
Hauptprogramm von Power Basic festzulegen sind. Diese können zudem 
in einer Konfigurationsdatei gespeichert werden, so daß die Informatio¬ 
nen bei jedem Programmstart wieder aktivierbar sind. Ferner haben Sie 
auf diesem Wege die Möglichkeit, mehrere unterschiedliche Konfigura¬ 
tionsdateien anzulegen und die jeweils benötigte bei Bedarf zu laden. 


Bild 1.5.2: 
Hauptauswahl¬ 
menü von 
PBINST 

Der Vollständigkeit halber werden wir das Konfigurationsprogramm an 
dieser Stelle kurz erläutern. Nachdem Sie es mit 

PBINST [Return] 

gestartet haben, erscheint der Eröffnungsbildschirm, wie in Bild 1.5.1 
dargestellt. 

Beachten Sie, daß das Programm automatisch mit einer Fehlermeldung 
abgebrochen wird, wenn sich das Programm PB.EXE nicht im aktuellen 
Verzeichnis befindet. Durch Betätigung der [Return] -Taste gelangen Sie 


Uählen Sie einen Installationspunkt 


Uählen Sie einen Punkt und drücken Sie die entsprechende Taste: 

1 - PouerBASIC’s CoMpile Menü installieren 

2 - PouerBASIC's Options Menü installieren 

3 - PouerBASIC's Debug Menü installieren 

4 - PouerBASIC's EditorkoMMandos einstellen 

5 - PouerBASIC's Editorgrundeinstellungen uählen 

6 - Uideofiodus uählen, der bein Start uon PouerBASIC aktiu ist 

7 - Farben einstellen, die PouerBASIC Für die Menüs benutzt 

8 - Einstellen der nax. Größe uon PouerBASIC' s Uatch^Output Fenster 

9 - Installation beenden und Änderungen speichern (oder ueruerfen) 


Drücken Sie 1, 2, 3, 4, 5, 6, 7, 8, oder 9... 
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zum Hauptmenü. Hier können Sie die Punkte auswählen, die Sie standard¬ 
mäßig ändern wollen (Bild 1.5.2). 

Beachten Sie, daß Sie nie mit der Originalversion des Programms PB.EXE 
arbeiten, sondern mit der bereits installierten. 


Bild 1.5.3: 
Suchpfad- 
Festlegung mit 
PBINST 

Wenn Sie sehr viel programmieren, werden sich auf Dauer eine Menge 
von Quelldateien, Units usw. ansammeln. Arbeiten Sie auf einer Festplatte 
und wollen diese Dateien zunächst nicht löschen, so ist es sinnvoll, 
spezielle Verzeichnisse für diese Dateien anzulegen. Für Quelldateien 
könnten Sie z.B. ein Verzeichnis QUELLEN, für Units das Verzeichnis UNIT 
auf Betriebssystem-Ebene mit dem DOS-Kommando MD erstellen. Damit 
der Compiler und der Linker im Anschluß daran die Dateien in diesen 
Verzeichnissen finden kann, müssen Sie aus dem Hauptmenü den zweiten 
Menüpunkt Power Bosic's Option Menü installieren anwählen, um die 
Optionen für den Compiler und Linker einzustellen. 

Aus dem sich anschließend öffnenden Fenster wählen Sie mit der Cursor¬ 
steuerung (Pfeiltasten) den Menüeintrag Directories aus und quittieren 
diese Anwahl mit der [Return] -Taste. In einem weiteren Auswahlfenster 
erhalten Sie dann die Liste der einstellbaren Suchpfade. Nach einer 
beliebigen Anwahl erscheint ein Eingabefenster, in das Sie den gewünsch¬ 
ten Suchpfad eingeben können. Der Bildschirm kann dann in etwa, wie 
in Bild 1.5.3 dargestellt, aussehen. 
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Bild 7 . 5 . 4 : 
Menüfarben¬ 
einstellung mit 
PBINST 

An dieser Stelle können wir nicht das gesamte Konfigurationsprogramm 
mit sämtlichen Möglichkeiten der Programmeinstellungen behandeln. 
Auch die Power-Basic-Handbücher erläutern dieses Programm nur am 
Rande. Da PBINST.EXE aber gut menügeführt und somit einfach zu 
verstehen ist, kann auf eine umfassende Beschreibung verzichtet werden. 
In Bild 1.5.4 haben wir ein weiteres Beispiel zur Einstellung der Menü¬ 
farben abgebildet. Änderungen der Farben werden direkt in einem 
Power-Basic-Menü auf dem Bildschirm angezeigt. 



1.6 Grundlagen zu Power Basic 

An dieser Stelle wollen wir die wesentlichen Grundlagen besprechen, die 
zur Bedienung der Entwicklungsumgebung und zum Verständnis der 
Programmiersprache Power Basic erforderlich sind. Um Power Basic zu 
starten, tippen Sie auf der Kommandozeilenebene 

PB (Return] 

Im Anschluß daran erscheint der Eröffnungsbildschirm. 

Die Benutzeroberfläche 

Um mit der Oberfläche von Power Basic arbeiten zu können, brauchen 
Sie kein Handbuch, da Ihnen jederzeit eine programminterne Hilfsfunktion 
zur Verfügung steht, die sich mit der Funktionstaste (zD aktivieren läßt. 
Befinden Sie sich in den Pull-down-Menüs und ein bestimmter Menüeintrag 
ist durch einen inversen Balken hervorgehoben, so erhalten Sie beim 
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Drücken der Taste CED genau zu diesem Menüeintrag eine Beschreibung. 
Wenn Sie sich im Editor befinden, stehen Ihnen allgemeine Informationen 
zur Verfügung. Um den Hilfe-Index angezeigt zu bekommen, müssen Sie 
die CED-Taste zweimal innerhalb des Editors betätigen. Aus diesem Index 
wählen Sie einen bestimmten Begriff, zu dem Sie nähere Erläuterungen 
benötigen (Bild 1.6.1). 


Bild 1.6.1: 
Hilfe-Index zur 
allgemeinen 
Hilfsfunktion 
von Power Basic 

Auf diesem Wege können Sie sich auch Informationen zu beliebigen 
Befehlen von Power Basic auf dem Bildschirm anzeigen lassen, so daß 
Sie nicht bei jeder Kleinigkeit im Referenzhandbuch nachschlagen 
müssen. Die Hilfemeldung zur SUB -Anweisung ist in Bild 1.6.2 dargestellt. 



File Edit Run Conpile Options Debug ßreakAjatch 


PoucrBfiSIC Help 



Index 

Das Hilfesysten 

Editor-Befehl silbersicht 

Ze ichenerklärung 

Debugging 

Hot-keys 

Hauptnenii 

Conpiler-Befehle 

fTEnTanrt; 

Funktionen 

Systen-Uariab1en 

Prograrinsyntax 

ASCII-Tabel1 b 

Fl-Help index U«-—Pick topic <-* -Go to topic Esc-Exit Help C-düHiBPasln 


- PouerBASIC Help - 

Der Befehl SUB/'END SUB 

Funktion: Definiert eine PouerBASIC-Prozedur. 

Syntax: SUB nane Uparaneterl iste>] CSTATICiSHAREDJLOCAL] lPRIUATEiPUBLIC] 
[LOCAL uariablenliste] 

CSTATIC uariablenliste] 

CSHARED uariablenliste] 

{befehle} 

[EXIT SUB3 
{befehle} 

END SUB 


- P gDn—I 

Fl-Help index Ti«-*-Plck topic {—•-Go to topic Esc-Exit Help C-C »;HliB Paste 


Bild 1.6.2: 

Hilfsinformation 

zur 

SUB/END-SUB- 

Anweisung 


Für die Bedienung brauchen Sie ansonsten nur zu wissen, daß die jeweils 
aktiven Sondertasten in der untersten Bildschirmzeile angezeigt werden, 
daß Sie mit der Funktionstaste |fio| in die Menüsteuerung in der obersten 
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Bildschirmzeile gelangen und das eine Anwahl der einzelnen Menüein¬ 
träge durch die Cursorsteuerung (Pfeiltasten) erfolgt. Quittiert wird eine 
Menüanwahl durch [Return] f ein Abbruch einer Eingabe bzw. einer 
Menüauswahl erfolgt in der Regel durch die Iesc] -T aste. 

Die Sprachsyntax von Power Basic 

Sollten Sie Basic bereits kennen, z.B. als GW-Basic- oder BasicA-lnter- 
preter, so werden Sie erstaunt sein über die Erweiterungen, die Power 
Basic bietet. Zwar können Programme über Zeilennummern verfügen, 
notwendig ist dies allerdings nicht mehr. Dazu stehen weitaus bessere 
Anweisungen zur Verfügung. Um optimal zu programmieren, sollten Sie 
auf die Verwendung von Zeilennummern gänzlich verzichten. 

Für jede Programmiersprache gelten Regeln, an die sich ein Programmie¬ 
rer halten muß. Auch bei Power Basic ist das nicht anders. Wir wollen 
nun die Grundlagen legen, um im Tutorium mit der strukturierten Basic- 
Programmierung beginnen zu können. 

Datentypen 

Variablen müssen je nach dem zugewiesenen Wert, den sie aufnehmen 
sollen, mit einem bestimmten Typ versehen werden. In anderen Pro¬ 
grammiersprachen, z.B. C, Pascal oder Fortran, hat diese Deklaration 
immer am Programmbeginn zu erfolgen. Basic ist sehr viel flexibler und 
erlaubt es, Variablen an jeder Stelle des Programms einzuführen. Power 
Basic stellt eine Vielzahl unterschiedlicher Datentypen zur Verfügung. Als 
Beispiel wollen wir uns etwas genauer mit den Ganzzahlen (Integer), die 
einen Wertebereich von -32768 bis 32767 haben, beschäftigen. Um 
Variablen als Integervariablen zu deklarieren, haben wir zwei Möglich¬ 
keiten. Entweder können Sie mit der DfF/NT-Anweisung Variablen, die 
mit einem bestimmten Buchstaben beginnen, als Ganzzahlen kenn¬ 
zeichnen, oder Sie hängen an den eigentlichen Variablennamen ein 
sogenanntes Erkennungszeichen an. 

DEFINIT A, B, C 

In diesem Beispiel wären alle Variablen, die einen Namen besitzen, der 
mit einem a, b oder c beginnt, automatisch Ganzzahlen. Besser ist die 
zweite Methode. Dann erkennen Sie den Typ der Variablen an jeder Stelle 
des Quelltextes, an der diese eingesetzt wird. Nehmen wir an, die 
Variable Alpha soll als Ganzzahl deklariert werden. In diesem Fall 
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schreiben wir Alpho% in unser gesamtes Programm. Die nachfolgende 
Tabelle listet die unter Power Basic verfügbaren Datentypen, das jeweils 
dazugehörige Erkennungszeichen am Beispiel der Variablen a und den 
Wertebereich des Datentyps auf. 

a Beachten Sie, daß gleiche Variablennamen mit unterschiedlichem Typkenn- 
Zeichen vom Compiler als unterschiedliche Variablen behandelt werden. 
Beispiel: Alpha% und Alpha! sind unterschiedliche Variablen. 


Datentyp 

Beispiel 

Wertebereich 

Integer 

a% 

-32.768 bis 32.767 

Long-Integer 

a& 

-2.147.483.648 bis 2.147.4836.47 

Quad-Integer 

a&& 

9.22xl0 18 

einfachgenau 

a! 

8.43x10' 37 bis 3.37x10 38 

doppeltgenau 

a# 

4.19xlO' 307 bis 1.67x10 308 

erweitert 

a## 

3.4x10' 4932 bis 1.2x10 4932 

BCD-Festzahl 

a@ 

9.99x10' 63 bis 9.99x10 63 

BCD-Fließzahl 

a@@ 

9.99x10' 63 bis 9.99x10 63 

Strings 

a$ 

bis zu 32750 Zeichen 

Flex-String 

a$$ 

flexible Zeichenkette 


Tabelle 1.6.1: Power-Basic-Datentypen 


Um die Variablendeklaration ein wenig verständlicher zu machen, wollen 
wir an dieser Stelle ein kleines Programm entwickeln, das zwei Ganzzah¬ 
len addiert. Die Zahlen sollen über die Tastatur eingelesen werden. Für 
die erste Zahl verwenden wir den Variablennamen ErsterWert% und für 
den zweiten Wert die Variable ZweiterWert%. Beachten Sie die hierbei 
gewählten Erkennungszeichen an den Variablennamen. Nun brauchen 
wir aber noch eine Variable, der das Ergebnis der Addition zugewiesen 
wird. Da die Summierung von 32000 und 32000 den Wertebereich der 
Ganzzahlen (Integer) überschreiten würde, müssen wir für die Ergebnis¬ 
variable einen Long-Integer-Datentyp wählen (Tabelle 1.6.1). Daher wird 
unser Ergebnis der Variablen Summe& zugewiesen. Demnach kann unser 
Programm etwa wie folgt aussehen: 

INPUT "1.Wert: ErsterWert% 

INPUT "2.Wert: ZweiterWert% 

Summe& = ErsterWert% + ZweiterWert% 

PRINT "Ergebnis der Addition: Summes 

Geben Sie in Programmen den Variablen aussagekräftige Namen, damit 
das Programm einfacher zu lesen ist. Ein Variablenname darf aus bis zu 
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255 Zeichen bestehen. Diese Länge sollten Sie allerdings nicht ausnutzen, 
da solche Variablennamen nur schlecht lesbar sind. 


A 


Beachten Sie, daß vom Compiler Variablen ohne bestimmte Typzuweisung 
automatisch als einfachgenaue Fließkommavariablen eingestuft werden. 


Neben numerischen Variablen spielen in der Programmierung die 
Zeichenketten eine wesentliche Rolle (Tabelle 1.6.1). Sämtliche Texte 
werden als Zeichenketten verwaltet. Spezielle Anwendungen werden wir 
in unserem Tutorium behandeln. 


Natürlich kennt auch Power Basic Konstanten. Der Wert einer Konstanten 
bleibt während des gesamten Programmlaufs unverändert. Die Zuweisung 
eines Wertes an eine Konstante darf innerhalb eines Programms nur 
einmal erfolgen. Einige Beispiele für Konstanten haben wir nachfolgend 
aufgelistet. 

Stringkonstante : "Test" 

Integerkonstante dezimal : 1% 

hexadezimal : &H1 
binär : &B00000001 

Bezeichnete Integerkonstante : %Werte 

In Power Basic können auch sogenannte Arrays bzw. Datenfelder definiert 
werden. Haben wir zuvor einzelne Werte Variablen zugewiesen, können 
wir mit Hilfe der Felder komplette Listen verwalten. Datenfelder können für 
jeden Datentyp mit dem D/M-Befehl dimensioniert werden. Um zum 
Beispiel ein Datenfeld mit 20 Elementen zu erstellen, schreiben wir 
folgende Anweisung in unser Programm: 

DIM Liste%(20) 'Ganzzahldatenfeld 

Auf jedes Element des Datenfeldes kann mit einer Indexnummer zuge¬ 
griffen werden. Das erste Element entspricht dann der Variablen Liste%(l), 
das zweite Element Liste%(2) usw. 


Ausdrücke und Operatoren 

Variablen, Konstanten, Zeichenketten oder Datenfeldelemente können 
über Ausdrücke und Operatoren arithmetisch, relational oder logisch 
miteinander verknüpft werden. Am bekanntesten dürften hierbei die 
arithmetischen Operatoren sein, mit denen einfache mathematische An¬ 
weisungen durchgeführt werden. Den arithmetischen Operator für die 
Addition haben wir bereits in unserem Beispielprogramm kennengelernt. 
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arithmethische Operatoren: A , -, *, /, \, MOD, +, - 
relationale Operatoren : <, <=, <>, >=, > , = 
logische Operatoren : AND, OR, XOR, EQV, IMP 

Mit den Relationen können Sie Werte miteinander vergleichen. Das 
Ergebnis ist immer ein boolescher Wert, nämlich -1, wenn die Beziehung 
wahr ( TRUE] ist, und 0, wenn die Beziehung falsch ( FALSE) ist. Über die 
logischen Operatoren können Werte miteinander verknüpft werden. Eine 
Vielzahl der hiervorgestellten Operatoren werden wir in unserem Tutorium 
bereits in der Anwendung erleben. 

Kontrollanweisungen 

Um strukturiert programmieren zu können, sind spezielle Kontrollstrukturen 
erforderlich, mit denen die Programmablaufsteuerung beeinflußt werden 
kann. Die Kenntnisse dieser Strukturen ermöglichen einen einfacheren 
Einstieg in das Tutorium. Daher wollen wir an einfachen Beispielen diese 
Sprachelemente von Power Basic vorstellen. 

Die GOTO-Anweisung ist der einfachste Befehl, um die Programmablauf¬ 
steuerung zu beeinflussen. Damit können Sie an eine beliebige Sprung¬ 
marke verzweigen. Bei häufigen GOTO-Anweisungen kann der Quelltext 
aber nur noch sehr schlecht nachvollzogen werden, weswegen Sie diesen 
Befehl, nur wenn unbedingt nötig, einsetzen sollten. 

Beispiel: 

GOTO weiter 
PRINT "Hallo" 
weiter: 

END 

In unserem Beispiel wird direkt am Programmanfang zu einer Programm¬ 
endemarke verzweigt. Die Zeile zur Ausgabe des Textes "Hallo" auf dem 
Bildschirm wird also nie ausgeführt. 

Mit Hilfe von Schleifen lassen sich bestimmte Arbeitsgänge mehrmals, zum 
Teil abhängig von einer bestimmten Bedingung, abarbeiten. Neben der 
FO/?-NEX7-SchIeife stellt Power Basic die WHILE-WEND- und DO-LOOP- 
Schleife zur Verfügung. 
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Allgemeiner Aufbau: 

FOR Zaehler = Anfang TO Ende [STEP Schrittweite] 

NEXT Zaehler 

In unserer allgemeinen Formulierung ist Zaehler eine Schleifenvariable, in 
der Regel mit dem Datentyp Integer, Anfang ist der Startwert des Schlei¬ 
fenzählers, Ende der Endwert des Schleifenzählers und Schrittweite der 
Wert, um den die Zählvariable nach jedem Schleifendurchlauf erhöht 
wird. Wird STEP Schrittweite weggelassen, wird die Zählvariable jeweils 
um 1 erhöht. 

Beispiele: 

FOR x%=l TO 100 
PRINT "Hallo" 

NEXT x% 

FOR x%=100 TO 1 STEP -1 
PRINT "Hallo" 

NEXT x% 

Anders als bei der FOR-NEXT- Konstruktion, kann mit WHILE-WEND die 
Abarbeitung einer Schleife von einer Bedingung abhängig gemacht 
werden. 

Allgemeines Beispiel: 

WHILE Bedingung 
WEND 

Die WH/[£-WEND-Schleife wird so oft durchlaufen, solange die Bedin¬ 
gung erfüllt ist. Aber bedenken Sie, wenn die Bedingung bei der ersten 
Überprüfung nicht erfüllt ist, wird die Schleife nicht durchlaufen. Diese 
Möglichkeit haben Sie allerdings mit der DO-LOOP-Anweisung. 

Beispiel: 

WHILE x%<100 
PRINT "Hallo" 
x%=x%+l 
WEND 

Mit DO-LOOP verfügt Power Basic über eine der flexibelsten Kontroll¬ 
strukturen, die in den heutigen Programmiersprachen verfügbar sind. Um 
nichtzu verwirren, werden wir hier lediglich einige Beispielformulierungen 
anführen, die die Möglichkeiten dieses Konstruktes demonstrieren sollen. 
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Beispiel: 

DO WHILE x%<100 
PRINT "Hallo" 
x%=x%+l 
LOOP 

Unser erstes Beispiel hat genau dieselbe Wirkung wie unser voran¬ 
gehendes Beispiel zu der WHILE-WEND- Anweisung. 

Beispiel: 

DO 

PRINT "Hallo" 
x%=x%+l 

LOOP WHILE x%<100 

Mit unserem letzten Beispiel haben wir eine Schleifenkonstruktion vorge¬ 
stellt, die mindestens einmal durchlaufen wird, da die Bedingung erst am 
Ende der Schleife abgefragt wird. 

Neben den Schleifen sind an dieser Stelle noch die Entscheidungs¬ 
konstrukte anzuführen. Hier stellt Power Basic die erweiterte IF-THEN-ELSE/ 
END-IF- und die SELECT-CASE -Anweisung zur Verfügung. Mit diesen 
Befehlen ist eine strukturierte Programmierung besonders einfach zu 
realisieren. 

Allgemein: 

IF 1.Bedingung THEN 

'Anweisungen, wenn 1.Bedingung wahr 
[ELSEIF 2.Bedingung THEN 

'Anweisungen, wenn 2.Bedingung wahr] 

[ELSE 

'Anweisungen für sonstige Fälle] 

ENDIF 

Die Teile der allgemeinen Formulierung, die in eckigen Klammern gesetzt 
sind, können auch entfallen, und die Anzahl der unterschiedlichen Bedin¬ 
gungen, die abgefragt werden, kann variieren. Trifft sowohl die erste als 
auch die zweite Bedingung zu, werden nur die Anweisungen für die erste 
Bedingung ausgeführt. In unserem folgenden Beispiel wird der Variablen 
b% ein Wert, abhängig von der Größe der Variablen a%, zugewiesen. 
Umfangreichere Anwendungen dieser Entscheidungskonstrukte werden 
wir im Verlaufe unseres Tutoriums noch kennenlernen. 
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Beispiel: 

IF a%>l AND a%<100 THEN 

b%=l 'b%=l, wenn 1< a% < 100 

ELSEIF a%<=l THEN 

b%=0 'b%=0, wenn a% <= 1 

ELSE 

b%=-l 'b%=-l, wenn a% >= 100 

END IF 

Mit der SELECT-CASE -Anweisung kann der Programmablauf anhand 
eines Wertes gesteuert werden. 

Allgemein: 


SELECT CASE Ausdruck 
CASE 1. Prüfung 

'Anweisungen, wenn 1.Prüfung wahr 
[CASE 2.Prüfung 

'Anweisungen, wenn 2.Prüfung wahr] 
CASE ELSE 

END SELECT _ 

Beispiel: 


SELECT CASE a% 
CASE 1 

'Anweisungen 
CASE 3,4,5 
' Anweisungen 
CASE 10 TO 20 
'Anweisungen 
CASE ELSE 

'Anweisungen 
END SELECT 


(wenn a%=l) 

(wenn a%=3 oder 4 oder 5) 
(wenn 10 <= a% <= 20) 

(für sonstige Fälle) 


Damit haben wir die wesentlichen Anweisungen zur Programmablauf¬ 
steuerung kennengelernt, die wir für die strukturierte Programmierung 
benötigen. 


Unterprogramme und Funktionen 

Über die Definition von Unterprogrammen und Funktionen haben wir die 
Möglichkeit, den Sprachumfang von Power Basic selbst zu erweitern. Mit 
Unterprogrammen lassen sich Befehle formulieren, die sich genauso 
verhalten, wie z.B. der Power-Basic-Befehl CLS zum Löschen des Bild¬ 
schirms; mit FUNCTION können Power-Basic-Funktionen, wie z.B. SIN, 
COS, nachgebildet werden. Wir werden der Einfachheit halber die 
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allgemeine Formulierung an dieser Stelle vereinfachen. Umfangreiche 
Beispiele hierzu werden wir im Tutorium eingehend behandeln. 

Benutzerdefiniertes Unterprogramm allgemein: 

SUB Name [Parameterliste] 

'Anweisungen 
END SUB 

Beispiel: 

SUB SchreibeHallo 
PRINT "Hallo" 

END SUB 

CALL SchreibeHallo 
END 

In unserem einfachen Beispiel wird lediglich durch ein benutzerdefiniertes 
Unterprogramm der Text Hallo auf den Bildschirm geschrieben. Der Aufruf 
dieser neuen Anweisung erfolgt mit CALL 

Benutzerdefinierte Funktion allgemein: 

FUNCTION Name [Parameterliste] 

'Anweisungen 
Name = Rückgabewert 

END FUNCTION _ 

Beispiel: 

FUNCTION AdditionS (a%, b%) 

AdditionS = a% + b% 

END FUNCTION 

PRINT Addition«, (3, 7) 

END 

Ob Variablen nur innerhalb des Unterprogramms oder einer Funktion, 
oder aber global im gesamten Programm bekannt sind, kann über 
bestimmte Schlüsselwörter ( SHARED , LOCAL ) festgelegt werden. Stan¬ 
dardmäßig sind alle in einem Unterprogramm oder einer Funktion einge¬ 
führten Variablen lokal, also nicht im gesamten Hauptprogramm bekannt. 
Ein Austausch von Variablenwerten ist allerdings auch über die Parameter¬ 
listen möglich. 
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Einführung 


Mit den Kenntnissen, die Sie bis jetzt erlangt haben, verfügen Sie bereits 
über einen umfangreichen Überblick über die Sprachsyntax von Power 
Basic. Um dieses Wissen zu schulen, aber auch um interne Befehle von 
Power Basic zu speziellen Programmierthemen kennenzulernen, sollten 
Sie sich nun mit dem Tutorium befassen. Bedenken Sie, daß man die 
Programmierung am besten anhand konkreter Beispiele erlernt. 
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Kapitel 2: 
Tutorium 


2 » 1 Erste Sitzung: Das Konzept der 
Einnahmen-/Ausgabenverwaltung 

Die Themen dieser Sitzung: 


• Aufbau einer Benutzerbibliothek (Unit) 

• Strukturierte Programmierung 

• Modulare Programmierung 

• Unterprogramme und Funktionen 

• Basic-Eingabeanweisungen und Tastaturabfragen 


Information 

In der ersten Sitzung wollen wir uns mit der modularen und strukturierten 
Programmierung unter Power Basic vertraut machen, indem wir eine kleine 
Funktionsbibliothek anlegen. In dieser Benutzerbibliothek, einer soge¬ 
nannten Unit, sind Funktionen und Unterprogramme enthalten, die univer¬ 
sell einsetzbar sind. Diese Routinen werden wir in unserem Haushaltspro¬ 
gramm nutzen, um eine professionell wirkende Oberfläche zu erstellen. 
Das Programm, das wir in unserem Tutorium entwickeln wollen, soll den 
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Namen HAUSHALT erhalten. Aufgabe ist es, eine einfache Einnahmen-/ 
Ausgabenüberschußrechnung zu programmieren, die eine Auswertung 
der in einer Datei abgelegten Daten, auf dem Bildschirm und dem Drucker 
erlaubt. Zur Veranschaulichung sollen die Ergebnisse auf dem Bildschirm 
auch grafisch darstellbar sein. Zur Optimierung des Programms wollen 
wir ferner eine einfache Hilfsfunktion und eine Fehlerbehandlungsroutine 
implementieren. Nun wollen wir uns aber zunächst mit der Oberflächen¬ 
programmierung beschäftigen. 

Als erstes wollen wir für unser Programm HAUSHALT eine Arbeitsfläche 
auf den Bildschirm zeichnen. Dieser Vorgang soll in einem Unterpro¬ 
gramm realisiert werden. Außerdem soll eine Kopfzeile mit dem Pro¬ 
grammnamen und eine Fußzeile mit aktiven Sondertasten angezeigt 
werden. 

Um die einzelnen Programmfunktionen, die in den späteren Sitzungen 
noch zu erstellen sind, aufrufen zu können, werden wir eine einfache 
Auswahlroutine formulieren. Die Auswahl soll in einem Fenster mit Hilfe 
der Cursorsteuerung erfolgen. Dazu brauchen wir eine einfache Routine 
zum Zeichnen eines Rahmens auf dem Bildschirm und eine Tastatur¬ 
abfrage. 

Abschließend benötigen wir für die Dateneingabe eine zu den internen 
Basic-Routinen verbesserte Eingaberoutine und eine Anweisung, die die 
Unterbrechung eines Programms erlaubt, bis eine beliebige Taste gedrückt 
wurde. 

Um den Einsatz der Funktionsbibliothek zu demonstrieren, werden wir 
abschließend das Grundgerüst für unser Hauptprogramm erstellen. 

Die Unit 

Bei Power Basic handelt es sich um einen Compiler, der ein eigenständig 
ablauffähiges Maschinenprogramm aus einem Basic-Quelltext erstellen 
kann. Dieses wird entweder im Speicher direkt zur Ausführung gebracht, 
oder zunächst in eine Datei gespeichert, die später auch ohne Entwick¬ 
lungsumgebung ausführbar ist. Bei großen Programmen ist bei jeder 
Quelltextänderung das gesamte Programm neu zu kompilieren. Um hier 
geringere Ubersetzungszeiten zu erzielen, besteht die Möglichkeit, aus¬ 
getestete Routinen in eine Unit (Funktionsbibliothek) zu übernehmen. Nach 
der Generierung der Unit (Maschinencode) kann später bei Bedarf die 
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bereits übersetzte Bibliothek in ein Programm mit der $LINK- Anweisung 
eingebunden werden. 

Jede Unit darf maximal 64 Kbyte Programmcode enthalten und besteht 
ausschließlich aus Unterprogrammen ( SUBs ) und Funktionen (FUNC- 
TIONs, DEF FNs). Eine $SEGMEN7"-Anweisung ist innerhalb einer Unit 
nicht zulässig. Standardmäßig sind sämtliche Routinen einer Unit nicht 
öffentlich, d.h. außerhalb der Unit nicht bekannt ( PRIVATE ]. SUBs und 
FUNCTIONs können außerhalb einer Benutzerbibliothek genutzt werden, 
wenn diese als PUBLIC (öffentlich) gekennzeichnet sind. 

Strukturierte Programmierung 

Power Basic stellt sämtliche Block- und Entscheidungsstrukturen zur Verfü¬ 
gung, die auch aus anderen höheren Programmiersprachen wie z.B. C 
oder Pascal bekannt sind. 

• SEIEC7-CASE-Auswahl 

• VVH//.E-WEND-Schleife 

• DO-tOOP-Schleife 

• FOR-NEXT-Sc h I e i f e 

• IF-THEN-ELSE-Abhage 

In Verbindung mit diesen Kontrollstrukturen, und der Möglichkeit der 
Erstellung von Unterprogrammen und Funktionen, können leicht über¬ 
schaubare und sehr gut lesbare Quelltexte formuliert werden. Den Einsatz 
der obengenannten Anweisungen und die Möglichkeiten der strukturierten 
Programmierung werden wir anhand der Funktionsbibliothek genauer im 
Praxisteil besprechen. 

Um strukturiert zu programmieren, sollten Sie häufiger benötigte Auf¬ 
gaben innerhalb von Unterprogrammen und Funktionen formulieren. 
Verzichten Sie, wenn möglich, auf den Einsatz des G07*0-Befehls und 
auf Zeilennummern, die Sie vielleicht noch von den Basic-Interpretern her 
kennen. Auch sollten Sie globale Variablen nur in Maßen einsetzen, um 
den Überblick nicht zu verlieren. Variablen sollten immer mit aussage¬ 
kräftigen Namen bezeichnet werden. Um Kontroll- und Entscheidungs¬ 
strukturen besser lesbar zu machen, sollten Sie mit Einrückungen arbeiten. 
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Modulare Programmierung 

Power Basic ermöglicht über das Unit-Konzept und das Einbinden von 
Quelltexten mit der Compiler-Direktive $INCLUDE die modulare Program¬ 
mierung. Ein Programm kann in der Regel in mehrere Teilbereiche 
(Module) aufgeteilt und getrennt voneinander entwickelt und ausgetestet 
werden. Dadurch sind Programme überschaubarer. Beachten Sie, daß 
Programme, die leicht lesbar sind, auch nach Monaten und Jahren noch 
ohne Schwierigkeiten gewartet werden können (Anpassungen an neue 
Hardware und Richtlinien, Programmerweiterungen etc.). 

Unterprogramme und Funktionen 

In Power Basic können Unterprogramme und Funktionen erstellt werden, 
mit denen Sie den Sprachumfang des Compilers nach Ihren eigenen 
Wünschen und Anforderungen erweitern können. Beispiele werden wir 
später im Praxisteil erläutern. 

Bedenken Sie, daß eine Parameterliste eines Unterprogramms oder einer 
Funktion maximal 1 6 Elemente enthalten darf. Versuchen Sie nicht, diese 
unter allen Umständen auszunutzen. Lange Parameterlisten sind schlecht 
lesbar und können leicht zu Fehlern führen. Die Reihenfolge der Parameter 
sollte bei ähnlichem Aufbau in unterschiedlichen Routinen immer die 
gleiche sein. Benötigen Sie in zwei Routinen eine Farbe v(arbe% für den 
Vordergrund und eine Farbe hfarbe% für den Hintergrund, dann sollten 
in der einen als auch in der anderen Parameterliste die Farben immer in 
der gleichen Reihenfolge gesetzt werden, z.B. zuerst vfarbe%, dann 
hfarbe%. 

Basic-Eingaberoutinen 

Power Basic stellt mehrere Anweisungen zur Verfügung, die Eingaben 
durch einen Programmbenutzer ermöglichen. Diese sind innerhalb eines 
Programms mit einer Benutzeroberfläche allerdings nur beschränkt er¬ 
setzbar. Mit Hilfe der IN KEY$- Anweisung läßt sich recht einfach eine 
eigene Eingaberoutine mit Power Basic realisieren. 

LINE-INPUT und INPUT lassen keine Cursor-Kontrolle zu. Vorgegebene 
Eingabefelder werden damit ohne Kontrollmöglichkeiten überschrieben. 
Auch die INPUT $-Anweisung ist nur bedingt einsetzbar, da sie keine 
Tastaturcodes, die aus zwei Zeichen bestehen, erfaßt. Lediglich mit der 
/N/CEV$-Funktion sind umfassende Tastaturabfragen möglich. 
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Praxis 

Wenn Power Basic von der Betriebssystemebene gestartet wird, meldet 
sich die integrierte Entwicklungsumgebung mit einem Eröffnungsbild¬ 
schirm, wie in Bild 2.1.1 dargestellt. Standardmäßig ist als Arbeitsdatei 
NONAME.BAS voreingestellt. Wir wollen für unser Projekt aber zunächst 
den Namen WORK.BAS verwenden. Um diese Einstellung zu Beginn 
vorzunehmen, wählen wir File —► Write to aus dem Menü. 

In das geöffnete Eingabefeld tragen wir den gewünschten Namen ein und 
quittieren diesen mit [Return] . In der rechten oberen Bildschirmecke wird 
nun der von uns gewählte Dateiname erscheinen. 

Überprüfen Sie, ob diese Datei nicht schon in Ihrem Verzeichnis vorhan¬ 
den ist, da sie ohne Vorwarnung gelöscht wird, falls die Option »Warnung 
vor dem Überschreiben« im Menü Options —► Environment —► Warn on 
overwrite nicht auf On geschaltet ist. Ein Retten der Datei ist dann im 
nachhinein nicht mehr möglich. 

Nun können wir über Edit in den Editor gelangen, wo wir den Quelltext 
eingeben und bearbeiten (editieren) werden. 



Bild 2.1.1: 
Power-Basic- 
Eröffnungsbild- 
schirm 


Wir definieren die Arbeitsfläche 

Zunächst wollen wir die Arbeitsfläche für unser Programm zeichnen 
lassen. Dazu wählen wir ein Unterprogramm, an das später beim Aufruf 
Farbwerte für den Vorder- und Hintergrund übergeben werden. Da der 
gesamte Bildschirm als Arbeitsfläche dient, sind keine weiteren Parameter 
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erforderlich. Wir beschränken uns dabei auf den Textbildschirm mit 25 
Zeilen und 80 Spalten. 

SUB Hintergrund (vfarbe% / hfarbe%) 

COLOR vfarbe%, hfarbe% _—. . 

locate 2, i I /)LT mrüchtty 71^6 & 

FOR x% = 1 TO 23 

PRINT STRING$(80 / " ">; h d Alt /olfoW+l 

NEXT x% 

END SUB 

Listing 2.1.1: Das Unterprogramm Hintergrund 

Wir leiten ein Unterprogramm mit dem Schlüsselwort SUB ein, gefolgt von 
einem Namen und eventuell einer Parameterliste. Wie Sie an der Routine 
sehen, erfolgt der Bildschirmaufbau zeilenweise. Dabei haben wir die 
FOR-NEXT- Schleife verwendet. Als Hintergrundzeichen benutzen wir ein 
Grafikzeichen aus dem ASCII-Zeichensatz (vgl. Anhang). Beachten'Sie, 
daß nach jeder PRINT- Anweisung automatisch ein Zeilenvorschub durch¬ 
geführt wird. In der 25. Zeile würde der Bildschirminhalt komplett um eine 
Zeile nach oben geschoben werden. Umgehen kann man dies, indem 
man die PRINT- Anweisung mit einem Semikolon abschließt. Dann wird 
der Zeilenvorschub unterdrückt. Und noch eine Anmerkung: Dadurch, daß 
wir sämtliche Bildschirmzeilen in ganzer Länge beschreiben, können wir 
auf eine LOCATE- Anweisung zum Positionieren des Cursors innerhalb der 
FOR-NEXT-Sch\eife verzichten. In unserem Fall wird die erste und letzte 
Zeile des Bildschirmes von der Hintergrund-Routine nicht beeinflußt, da 
diese Zeilen für andere Zwecke reserviert sind. Nachdem Sie dieses 
Unterprogramm eingegeben haben, können Sie es mit dem Aufruf CALL 
Hintergrund(7,0) unmittelbar testen. Die Testanweisung können Sie direkt 
in die erste Zeile des Editors schreiben. Anschließend starten Sie das 
Programm mit der Befehlsfolge IfioI Run —► Run oder mit der Funktions¬ 
taste (H]. Nachdem Sie die Routine getestet haben und feststellen, daß 
diese korrekt arbeitet, sollten Sie den Aufruf mit CALL aus dem Programm 
wieder entfernen. 

Als nächstes wollen wir eine Status- und Informationszeile auf unsere 
Arbeitsfläche schreiben lassen. Da der Vorgang identisch ist, lediglich in 
einer anderen Bildschirmzeile stattfindet, bietet sich wieder die Formulie¬ 
rung als Unterprogramm an. Wir benötigen als Parameter eine String¬ 
variable, in der der Text für die Zeile übergeben wird, einen Farbpara- 
meter und einen Parameter für die zu verwendende Bildschirmzeile. 
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SUB InfoZeile (Text$, Zeile%, vfarbe%, hfarbe%) 

LOCATE Zeile%, 1 
COLOR vfarbe%, hfarbe% 

Text$ = SollLen$(Text$, 80) 

PRINT Text$; 

END SUB 

Listing 2.1.2: Das Unterprogramm InfoZeile 

In diesem Unterprogramm wird lediglich der Cursor positioniert ( LOCATE ], 
die Farbeinstellung vorgenommen (COLOR) und der Text ausgegeben 
(PRINT). Zu erläutern bleibt allerdings die Textzuweisung. Dabei erfolgt 
der Aufruf einer benutzerdefinierten Funktion SollLen$, die sich ebenso 
verhält wie z.B. die Basic-interne Funktion SIN. Die Funktion gibt an die 
Variable Text$ eine geänderte Variable Text$ zurück. Bevor wir den Inhalt 
der Funktion besprechen, wollen wir zunächst den Quelltext vorstellen. 

FUNCTION SollLen$ (Text$, Laenge%) 

TextLaenge% = LEN(Text$) 

IF TextLaenge% > Laenge% THEN 

Text$ = LEFT$(Text$, Laenge%) 

ELSEIF TextLaenge% < Laenge% THEN 

Text$ = Text$ + SPACE$(Laenge% - TextLaenge%) 

END IF 

SollLen$ = Text$ 

END FUNCTION 

Listing 2.1.3: Die Funktion SollLen$ 

Die Funktion SollLen$ erlaubt es, Strings auf eine vorgegebene Länge mit 
Leerzeichen aufzufüllen bzw. einen Text auf eine vorgegebene Länge zu 
kürzen. Damit sind bereits die beiden Funktionsparameter erklärt. Die 
Abfrage, ob eine Verkürzung oder eine Verlängerung erforderlich ist, 
erfolgt über eine IF-THEN-ELSE- Konstruktion. Das Ergebnis wird im Funk¬ 
tionsnamen direkt zurückgegeben, was die Zuweisung SollLen$=Text$ 
erforderlich macht. Die Schlüsselwörter für eine Funktion sind 
FUNCTION/END-FUNCTION. Wir verwenden diese Funktion im Unter¬ 
programm InfoZeile, um die Textzeile auf 80 Zeichen Länge aufzufüllen. 

Fensterverwaltung einfach realisiert 

Viele Programme arbeiten mit einer umfangreichen Fensterverwaltung. 
Eine einfache Realisierung ist über nur ein einziges Unterprogramm 
möglich, das wir an dieser Stelle vorstellen möchten. Der Programmaufbau 
ähnelt der Routine Hintergrund. Für den Fensterrahmen verwenden wir 
wieder Zeichen aus dem ASCII-Zeichensatz. Ein Rahmenaufbau soll auch 
für Bildschirmbereiche möglich sein. Daher benötigen wir Parameter für 
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die Fensterpositionierung und die Fenstergröße. Um das Unterprogramm 
möglichst überschaubar zu halten, verzichten wir auf Kontrollen. 

SUB Fenster (Zeile%, Spalte%, Breite% ; Hoehe%, vfarbe%, hfarbe%) 

COLOR vfarbe%, hfarbe% . /• (_ T* / 

LOCATE Zeile%, Spalte% 

PRINT " (=" + STRING$ (Breite%, "=") + 

FOR x% = Zeile% + 1 TO Zeile% + Hoehe% 

LOCATE x%, Spalte% 

PRINT "|" + SPACE$(Breite%) + "|"; 

NEXT x% 

LOCATE x%, Spalte% 

PRINT "t" + STRINGS(Breite%, "=") + "J"; 

END SUB 

Listing 2.1.4: Das Unterprogramm Fenster 

Verwenden Sie aussagekräftige Variablennamen, ist ein Programm auch 
ohne eine Vielzahl von Kommentaren leicht lesbar. Ein auf den Bildschirm 
gezeichnetes Fenster muß später durch einen bestimmten Befehl auch 
wieder geschlossen werden. Hierzu schreiben wir die wohl einfachste 
aller Tataturabfragen, die ein Programm solange unterbricht, bis eine 
Taste gedrückt wurde. 

SUB Warte 

WHILE INKEYS = "": WEND 
END SUB 

Listing 2.1.5: Das Unterprogramm Warte 

Nun haben wir bereits einige einfache Unterprogramme und eine Funktion 
vorgestellt, an denen man sehr gut die strukturierte Programmierung 
nachvollziehen kann. Die Befehle, die in diesen Programmeinheiten 
definiert sind, werden nicht unmittelbar ausgeführt. Ein Unterprogramm 
muß gesondert mit CALL und eine Funktion innerhalb einer Zuweisung 
aufgerufen werden. 

Beispiel: 

Unterprogramm: CALL Warte 

Funktion : TextS = SollLenS (TextS, 80) 

Unterprogramme können direkt nach Fertigstellung durch einen Beispiel¬ 
aufruf im Hauptprogramm aufgerufen werden, so wie wir das bei der 
Routine Hintergrund vorgeführt haben. Von dieser Möglichkeit sollten Sie 
ausgiebigen Gebrauch machen. Erst wenn SUBs und FUNCTIONs korrekt 
zu arbeiten scheinen, ist die Übernahme in eine Unit sinnvoll. Versteckte 
Fehler oder falsche Ergebnisse sind aber auch dann noch möglich. 
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Programmaufbau 

Wir haben die Routinen nacheinander, jeweils durch eine Leerzeile 
getrennt, in die Datei WORK.BAS eingegeben. Die Beispielaufrufe befin¬ 
den sich am Beginn des Quelltextes und dienen als vorläufiges Hauptpro¬ 
gramm. Sie sollten versuchen, einen Quelltext nach einem einheitlichen 
Schema aufzubauen. 

Deklarationsteil 
Hauptprogramm 

Unterprogramme und Funktionen 

DECLARE SUB Warte() 


CALL Warte 
SUB Warte 

WHILE INKEY$="":WEND 
END SUB 

Auch bei längeren Programmen sollten Sie diesen Aufbau durchhalten. 
Über den Deklarationsteil kann Power Basic den korrekten Aufruf eines 
Unterprogramms oder einer Funktion überprüfen. Für die spätere Unit ist 
dieser Deklarationsteil unbedingt erforderlich. Bevor wir uns dem Haupt¬ 
programm näher widmen, wollen wir zunächst zwei etwas anspruchs¬ 
vollere Unterprogramme schreiben, die Sie sich etwas genauer ansehen 
sollten, da sie universell erweiterbar sind. 

Eine allgemeine Auswahlroutine 

Während eines Programmlaufes werden vom Benutzer immer wieder 
Eingaben, sogenannte Auswahlentscheidungen, gefordert. Kommerzielle 
Programme, so auch Power Basic, verwenden komplexe Menüstrukturen. 
Daß die Formulierung auch in Basic ohne große Probleme möglich ist, soll 
die nächste Routine beweisen. 

SUB Auswahl(Text$(), Anzahl%, vfarbe%, hfarbe%, Wahl%) 

COLOR vfarbe%, hfarbe% 'Fensteraufbau 

Breite% = 10 

FOR x% = 1 TO Anzahl% 'max.Stringlänge 

IF LEN(Text$(x%)) > Breite% THEN Breite% = LEN(Text$(x%)) 

NEXT x% 

FOR y% = 1 TO Anzahl% 'einheitl. Stringlänge 

Text$ (y%) = SollLen$(Text$(y%), Breite%) 

NEXT y% 

Breite% = Breite% + 2 'Fenster 

CALL Fenster (5, 5, Breite%, Anzahl%, vfarbe%, hfarbe%) 

FOR x% = 1 TO Anzahl% 

IF x% = 1 THEN 
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COLOR hfarbe%, vfarbe% 

ELSE 

COLOR vfarbe%, hfarbe% 

END IF 

LOCATE 5 + x%, 7, 0 
PRINT Text$(x%); 

NEXT x% 'Auswahl 

BalkenPosition% = 1 'erster Eintrag aktiv 

WHILE a$ <> CHR$(13) 
a$ = INKEY$ 

IF LEN(a$) = 2 THEN 

AltPosition% = BalkenPosition% 

Taste% = ASC(RIGHT$(a$, 1)) 

SELECT CASE Taste% 

CASE 72 'Cursor Up 

IF BalkenPosition% = 1 THEN 

BalkenPosition% = Anzahl% 

ELSE 

BalkenPosition% = BalkenPosition% - 1 
END IF 

CASE 80 'Cursor Down 

IF BalkenPosition% = Anzahl% THEN 
BalkenPosition% = 1 
ELSE 

BalkenPosition% = BalkenPosition% + 1 
END IF 
CASE ELSE 

END SELECT 'Balken aktualisieren 

IF Taste% = 80 OR Taste% = 72 THEN 
COLOR vfarbe%, hfarbe% 'alter Balken 
LOCATE 5 + AltPosition%, 7, 0 
PRINT Text$(AltPosition%); 

COLOR hfarbe%, vfarbe% 'neuer Balken 
LOCATE 5 + BalkenPosition%, 7, 0 
PRINT Text$ (BalkenPosition%); 

END IF 
END IF 

IF a$ <> CHR$(13) THEN a$ = "" 

WEND 

LOCATE , , 1 

Wahl% = BalkenPosition% 

END SUB 

Listing 2.1.6: Die allgemeine Auswohlroutine 

Wesentlicher Bestandteil dieser Routine ist die Tastaturabfrage, die durch 
die /N/CEY$-Anweisung ermöglicht wurde. Diese Funktion liefert einen Ein¬ 
oder Zwei-Zeichen-Tastaturcode (vgl. Anhang) zurück. Da wir die Cursor¬ 
steuerung behandeln wollen, benötigen wir einen Zwei-Zeichen-Code. In 
der Variablen BolkenPosition% merken wir uns den aktuell angewählten 
und in der Variablen AltPosition% den zuvor aktiven Menüpunkt. Mit Hilfe 
dieser Variablen können die Farbumstellungen vorgenommen werden. 
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Die Auswahl eines Menüpunkts erfolgt mit (Return] . Dann wird die 
WHILE-WEND- Schleife beendet. Damit eine Auswertung im Hauptpro¬ 
gramm möglich ist, wird die Wahl über die Variable Wohl% an das 
Hauptprogramm zurückgegeben. Ein vollständiges Verstehen dieser und 
der nächsten Routine ist noch nicht notwendig, da wir vor allem mit Hilfe 
dieser Unterprogramme eine Unit aufbauen wollen. Die Programmier¬ 
technik wird in den weiteren Sitzungen noch vertiefend behandelt. 

Eine einfache Eingaberoutine 

Ebenso wie die Auswahlroutine arbeitet auch die Eingaberoutine. Hierbei 
wird allerdings ein Ein-Zeichen-Tastaturcode ausgewertet. Das Unterpro¬ 
gramm soll das Bearbeiten einer bestimmten Eingabe in einem genau 
definierten Bildschirmbereich zulassen. Dabei ist die [ Backspace ] -Taste 
als Löschtaste vorgesehen. Mit der (Return] -Taste wird die Eingaberoutine 
beendet. Die Parameterliste beinhaltet eine Vielzahl von Parametern. Drei 
davon wollen wir hier kurz erläutern. In der Variablen Vorgabe$ wird 
eine Feldvorgabe (z.B.: "Name:"), in der Variablen Loenge% die Ein¬ 
gabefeldlänge übergeben. Wird die Variable Eingab$ vor dem Unterpro¬ 
gramm bereits gesetzt (die Länge muß kleiner gleich der Länge der 
Eingabefeldlänge sein), kann ein Inhalt in das Eingabefeld vorgegeben 
werden. Uber diesen Parameter wird aber auch die bearbeitete Eingabe 
zurückgegeben. Den Einsatz dieser Routine werden wir in späteren 
Lektionen noch genauer erläutern. Eine Erweiterung der Eingaberoutine 
werden wir für die spätere Dateneingabe vornehmen. 

SUB Eingabe (Vorgabe$, Eingab$, Laenge%, Zeile%, Spalte%,_ 
vfarbe%, hfarbe%) 

LOCATE Zeile%, Spalte% 

COLOR vfarbe%, hfarbe% 

PRINT Vorgabe$; 

COLOR hfarbe%, vfarbe% 

PRINT Eingab$ + SPACE$(Laenge% - LEN(Eingab$)); 

MinSpalte% = LEN(Vorgabe$) + Spalte% 

MaxSpalte% = LEN(Vorgabe$) + Spalte% + Laenge% - 1 
EditSpalte% = LEN(Vorgabe$) + Spalte% + LEN(Eingab$) 

IF EditSpalte%>MaxSpalte% THEN EditSpalte=EditSpalte%-l 
WHILE Zeichen$ <> CHR$(13) 

LOCATE Zeile%, EditSpalte%, 1 
Zeichen$ = INKEY$ 

IF LEN(Zeichen$) = 1 THEN 
SELECT CASE ASC(Zeichen$) 

CASE 8 'Backspace 

IF EditSpalte% > MinSpalte% THEN 
IF LEN(Eingab$) = Laenge% THEN 
EditSpalte% = EditSpalte% + 1 
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END IF 

Eingab$ = LEFT$(Eingab$, LEN(Eingab$) - 1) 

LOCATE Zeile% / MinSpalte% 

PRINT Eingab$ + SPACE$(Laenge% - LEN(Eingab$)); 

IF MinSpalte% < EditSpalte% THEN 
EditSpalte% = EditSpalte% - 1 
END IF 
END IF 

CASE 32 TO 254 

IF EditSpalte% <= MaxSpalte% THEN 
IF LEN(Eingab$) = Laenge% THEN 

Eingab$ = LEFT$(Eingab$, LEN(Eingab$) - 1) 

END IF 

Eingab$ = Eingab$ + Zeichen$ 

LOCATE Zeile%, MinSpalte% 

PRINT Eingab$ + SPACE$(Laenge% - LEN(Eingab$)); 

IF MaxSpalte% > EditSpalte% THEN 
EditSpalte% = EditSpalte% + 1 
END IF 
END IF 
CASE ELSE 
END SELECT 
END IF 

IF Zeichen$ <> CHR$(13) THEN Zeichen$ = "" 

WEND 
END SUB 

Listing 2.1.7: Eine allgemeine Eingaberoutine 

Beachten Sie, daß die Feldvorgabe und das Eingabefeld zusammenge¬ 
hören. Die Positionierung bezieht sich daher immer auf die Feldvorgabe 
und das Eingabefeld wird daran direkt angehängt. Die Gesamtlänge 
dieser Einheit darf in dieser Programmfassung maximal eine Bildschirm¬ 
zeile (80 Zeichen) betragen. 

Das Hauptprogramm 

Damit wir die Lauffähigkeit unserer Routinen gleich testen können, wollen 
wir an dieser Stelle das Programmgerüst für unser Hauptprogramm 
entwickeln. Beachten Sie wieder den gewählten Programmaufbau von 
Deklarationsteil, Hauptprogrammteil und Funktionsbibliotheksteil. Der 
Programmablauf wird durch unsere Auswahlroutine gesteuert, indem 
der zurückgegebene Wert für den gewählten Menüpunkt in einer SELECT- 
CASE-Abfrage verarbeitet wird. 

DECLARE SUB InfoZeile (STRING, INTEGER, INTEGER, INTEGER) 

DECLARE FUNCTION SollLen$ (STRING, INTEGER) 

DECLARE SUB Hintergrund (INTEGER, INTEGER) 

DECLARE SUB Eingabe (STRING, STRING, INTEGER, INTEGER, INTEGER, INTEGER,_ 
INTEGER) 
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DECLARE SUB Fenster (INTEGER, INTEGER, INTEGER, INTEGER, INTEGER, INTEGER) 
DECLARE SUB Auswahl (STRING ARRAY, INTEGER, INTEGER, INTEGER, INTEGER) 


$STACK 4000 

CLS 

vfarbe% = 7 

hfarbe% = 1 

Anzahl% = 8 
Menue$(l) = 

"Dateiwahl" 

Menue$(2) 

= 

"Dateneingabe" 

Menue$(3) 

= 

"Datenauswertung 

Menue$(4) 

= 

"Druck" 

Menue$(5) 

= 

"Grafik" 

Menue$ (6) 

= 

"OS-Shell" 

Menue$ (7) 

= 

"Hilfe" 

Menue$ (8) 

= 

"Ende" 


'Stapelspeicher 
'Hauptprogramm HAUSHALT 
'Daten initialisieren 

'Menüeinträge 


CALL Hintergrund(vfarbe%, hfarbe%) 

WHILE Wahl%<>8 

CALL InfoZeile("HAUSHALT Version 1.00 - Einnahmen-"+_ 
"/Ausgabenüberschußrechnung", 1, 7, 1) 
CALL InfoZeile(CHR$(24)+CHR$(25)+": Anwahl Menüeintrag 
RETURN:"+_ 

"Menüauswahl", 25, vfarbe%, hfarbe%) 

CALL Auswahl(Menue$(), Anzahl%, vfarbe%, hfarbe%, Wahl%) 
SELECT CASE Wahl% 

CASE 1 

'hier wird später die Arbeitsdatei gewählt 
CASE 2 

'hier wird später die Dateneingabe vorgenommen 
CASE 3 

'hier wird später die Datenauswertung durchgeführt 
CASE 4 

'hier werden später die Ergebnisse ausgedruckt 
CASE 5 

'hier wird später die Grafik ausgegeben 
CASE 6 

'Schnittstelle zum Betriebssystem 
CASE 7 

'hier wird später die Hilfsfunktion integriert 
CASE ELSE 
END SELECT 
WEND 

COLOR 7, 0 
CLS 

PRINT "Programm beendet..." 

PRINT "Fenster- und Eingaberoutine-Demonstration:" 

CALL Fenster (5, 5, 70, 10, vfarbe%, hfarbe%) 

Eingab$ = "Test" 

CALL Eingabe("Bitte etwas eingeben: ", Eingab$, 20, 6, 6, 
vfarbe%,_hfarbe%) 

LOCATE 10, 10 
COLOR 7,0 
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CLS 

PRINT "Sie haben >" + Eingab$ + "< eingegeben..." 
PRINT "DEMO beendet..." 

END 


'an dieser Stelle folgen die allgemein einsetzbaren Funktionen 
'und Unterprogramme 

'auf das Listing dieser Routinen soll an dieser Stelle verzichtet werden 

Listing 2.1.8: Die erste Fassung unseres Hauptprogramms 


Dieses Programm befindet sich nun in der Gesamtheit im Speicher. Sie 
sollten diese Datei regelmäßig, spätestens aber vor jedem Programmstart 
über das Menü File —► Sove auf Diskette bzw. Festplatte sichern. Wenn 
Sie die Datei WORK.BAS komplett in den Editor eingegeben haben, 
ergibt sich ein Bildschirm, wie in Bild 2.1.2 dargestellt. 


Bild 2.1.2: 
Erstellung der 
allgemeinen 
Routinen 



Unser Programm kann jetzt direkt ausgetestet werden, indem Sie es im 
Speicher in Maschinensprache übersetzen und ausführen lassen. Dazu 
verlassen Sie den Editor über die Funktionstaste Ifio] und wählen den 
Menüpunkt Run —► Run (Bild 2.1.3). Das Programm wird unmittelbar 
ausgeführt. Sollten Sie den Quelltext fehlerhaft eingegeben haben (z.B. 
Tippfehler), so wird der Compiler mit entsprechenden Fehlermeldungen 
abbrechen. Diese Fehler müssen Sie korrigieren, indem Sie in den Editor 
zurückgehen und den Quelltext editieren. 
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Bild 2.1.3: 
Testlauf der 
Bibliotheks¬ 
funktionen 


Schreiben einer Unit 

Nun haben wir die Grundlagen gelegt, um eine Unit zu schreiben. Wir 
haben bereits im Informationsteil erwähnt, daß nur Unterprogramme und 
Funktionen in einer Unit enthalten sein dürfen. Wir müssen also die Datei 
WORK.BAS in mehrere Teildateien aufsplitten. Dies gestaltet sich über 
den Editor recht einfach. Die Unit soll den Namen TOOLS.BAS erhalten. 
Den Deklarationsteil werden wir gesondert in die Datei TOOLS.H, das 
Hauptprogramm in die Datei WORK2.BAS speichern. Der ursprüngliche 
Quelltext soll dabei als Sicherungsdatei erhalten bleiben. Um diese 
Arbeitsschritte durchführen zu können, werden wir mit den Blockbefehlen 
des Editors arbeiten. Diese sind nachfolgend kurz aufgelistet: 

Blockanfang markieren: [strgl + pTl QT) 

Blockende markieren: Istrgj + (k) QT) 

Block in Datei speichern: [strgl + (TT) (¥) 

Gehen Sie in den Editor, um die Datei WORK.BAS aufzuteilen. Positio¬ 
nieren Sie den Cursor zunächst auf den Anfang der ersten Zeile des 
Deklarationsteils und drücken Sie die Tastenkombination (strg) + (k) GD . 
Dann bewegen Sie den Cursor auf das Ende des Deklarationsteiles und 
drücken Istrg] + © QD . Sie werden sehen, daß der markierte Textbereich 
farblich hervorgehoben wird. Mit (strgl + |TT| (w) können Sie nun diesen 
Block in eine Datei speichern. Geben Sie bei der Dateinamensabfrage 
TOOLS.H ein. Ebenso verfahren Sie mit dem Hauptprogrammteil und dem 
Unit-Teil. Nun haben Sie drei zusätzliche Dateien erzeugt, die wir 
gesondert behandeln werden. 
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Bild 2.1.4: 
Erstellung 
einer Unit 


Laden Sie die Unit mit dem Namen TOOLS.BAS mit Hilfe der Funktions¬ 
taste (ED in den Speicher. Im Editor müssen wir an das Ende jeder 
Parameterzeile das Schlüsselwort PUBLIC einfügen, damit sämtliche 
Routinen später von unserem Hauptprogramm genutzt werden können. 
Danach verlassen wir den Editor mit |fio| und wählen das Menü Compile 
—► Destination —► Unit. Damit geben wir dem Compiler bekannt, daß er 
bei der nächsten Übersetzung ein Bibliotheksmodul erzeugen soll 
(Bild 2.1.4). Anschließend lassen wir die Unit in Maschinensprache 
übersetzen. Dazu brauchen Sie lediglich die Tastenkombination 
[Aitl + fF9] betätigen. 

Auf der Festplatte befinden sich mittlerweile folgende Dateien: 

WORK.BAS Quelldatei gesamt 

WORK2.BAS Grundgerüst Hauptprogramm 
TOOLS.BAS Quelltexte der Unterprogramme 

TOOLS. H Deklarationsteil 

TOOLS.PBU kompilierte Unit 

An dieser Stelle müssen wir das Hauptprogramm an das Unit-Konzept 
anpassen. Dazu laden wir zunächst die Datei WORK2.BAS mit der 
Funktionstaste (ED. Das Hauptprogramm wollen wir zu einem eigen¬ 
ständig ablauffähigen Programm übersetzen. Deshalb wählen wir das 
Menü Compile —► Destination —► EXE file (Bild 2.1.5). Beachten Sie, daß 
unsere Umstellung auf Unit ansonsten weiterhin gültig wäre. 

Wie Sie in der nächsten Abbildung erkennen können, haben wir unser 
Hauptprogramm mit Kommentarzeilen versehen, die eine Identifizierung 
der Quelldatei auch später noch möglich machen. 
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Bild 2.1.5: 
Erstellung eines 
eigenständig 
ablauffähigen 
Demonstrations¬ 
programms 

Dieser Aufbau kann Ihnen als Beispiel dienen, daher sind die Zeilen auf 
der nächsten Seite noch einmal abgedruckt. Versuchen Sie zu Beginn Ihres 
Quelltextes einen ausführlichen Kommentar zu formulieren, der alle 
wichtigen Informationen zum Programm enthalten sollte. Außerdem sind 
zwei Compiler-Befehle eingefügt, die ebenfalls genauer zu erläutern sind. 

Compiler-Befehle: 

$INCLUDE "TOOLS.H" 'Deklarationen der Unit TOOLS 

$LINK "TOOLS.PBU" 'Benutzerbibliothek TOOLS einbinden 

Mit dem ersten Befehl binden wir die Datei TOOLS.H, eine sogenannte 
Headerdatei, in unser Programm ein. Damit werden dem Compiler die 
Routinen und ihre Syntax in der Unit TOOLS bekannt gemacht. Die 
$LINK -Anweisung teilt dem Compiler mit, in das Maschinenprogramm die 
Unit TOOLS.PBU mit einzubinden. Erst mit diesen Befehlen kann das 
Hauptprogramm direkt ausgeführt werden. 

Zuvor haben wir bereits einen anderen Compiler-Befehl in unserem 
Programm verwendet, den wir in diesem Zusammenhang ebenfalls er¬ 
läutern wollen. Durch den Einsatz der Anweisung $STACK 4000 läßt 
sich der Stapelspeicher von standardmäßig 1536 Byte auf 4000 Byte 
erhöhen. In diesem Speicherbereich werden Rücksprungadressen, Para¬ 
meterübergaben und lokale Variablen gespeichert. Da wir die Unterpro¬ 
grammtechnik ausführlich nutzen wollen, würde der bereitgestellte Stapel¬ 
speicher für unser endgültiges Programm nicht unbedingt ausreichen. Ist 
das Menü Options —► Compiler —► Error tests —► Stock fest auf ON gesetzt, 
meldet Power Basic, wenn der Stapelspeicher für das aktive Programm 
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nicht ausreicht. Die $ STACK- Anweisung darf innerhalb eines Programms 
nur einmal verwendet werden. 

Kommentarzeilen des Hauptprogramms: 

> *********************************************************************** 

'* Programmname : HAUSHALT.BAS * 

'* Compiler : Power Basic 2.10 * 

'* verwendete Headerdateien: TOOLS.H * 

'* verwendete Units : TOOLS.PBU * 

' * geschrieben : April/Mai 1991 * 

' * letzte Änderung : 27.04.1991 * 

'*********************************************************************** 

Neben der Kommentierung Ihrer Hauptprogramme sollten Sie auch 
Header-Dateien und Quelltexte zu Units ausreichend kommentieren. 


mk§smm 


1.00 - Einnahnen-/'flusgabenübErscliuprechnung 


IDateiuahl 


Dateneingabe 

Datenausuertung 

Druck 

Grafik 

OS-Shell 

Hilfe 

Ende 




nmmmnmmn 


Bild 2.1.6: Der 
Eröffnungsbild¬ 
schirm unseres 
Programms 
Haushalt 


Jetzt können wir mit |Aitl + pr9l die EXE-Datei erzeugen lassen. Auf der 
Festplatte wird die Datei WORKS2.EXE gespeichert, die nun direkt von 
der Kommandozeilenebene aus gestartet werden kann. Aber auch eine 
Ausführung innerhalb der Benutzeroberfläche ist möglich. Dazu sollten 
Sie nach [Alt ] + [F9l die Menüfolge Run -> Run eingeben. 

Den Eröffnungsbildschirm unseres Programms HAUSHALT können wir in 
Bild 2.1.6 betrachten. Sie sehen, daß man mit sehr wenig Aufwand ein 
ansprechendes Programm realisieren kann. 


50 























Tutorium 


Bild 2.1.7: 
Testlauf der 
Eingabe- und 
Fensterroutine 

An das eigentliche Hauptprogramm (s.o.) haben wir eine kleine Demon¬ 
stration, der an dieser Stelle noch nicht benötigten Routinen angehängt. 
Die Bildschirmausgabe dieser Zeilen ist in Bild 2.1.7 dargestellt. 

Die Grundlagen der strukturierten und modularen Programmierung sind 
damit gelegt, und wir können uns in den nächsten Sitzungen gezielt mit 
unserem Projekt HAUSHALT befassen. 

Workshop 

Checkliste 

1. Was versteht man unter »strukturierter Programmierung«? 

2. Was ist das »Unit-Konzept«? 

3. Was ist »modulare Programmierung«? 

4. Was bedeutet das Schlüsselwort »PUBLIC«? 

5. Was ist ein »Unterprogramm«, was eine »Funktion«? 

6. Nennen Sie die wichtigsten Block- und Entscheidungsstrukturen in Power Basic! 
Ideen für eigene Übungen 

• Erweitern Sie die Tastaturabfrage der Eingaberoutine so, daß auch eine 
Cursorsteuerung zum Bewegen des Textcursors aktiv ist (Zwei-Zeichen-Tastatur- 
code). 

• Erweitern Sie die Auswahlroutine so, daß auch Menüeinträge durch das 
Eintasten ihrer Anfangsbuchstaben angesteuert werden können. 
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• Implementieren Sie in der Eingabe- und Auswahlroutine eine Abbruchfunktion. 
Das heißt, durch Drücken von [esc] wird die Eingabe nicht übernommen bzw. 
keine Auswahl zurückgegeben. 

• Formulieren Sie ein einfaches Unterprogramm (z.B. Zahl in der Bildschirmmitte 
ausgeben). 

• Formulieren Sie eine einfache Funktion (z.B. Multiplikation zweier Zahlen). 
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2.2 Zweite Sitzung: Wahl einer Arbeitsdatei 
för Buchungssätze 

Die Themen dieser Sitzung: 

• DOS-Befehle von Power Basic 

• Umgang mit Dateien 

• Dateiarten 

• Dateinamensvergabe unter Power Basic 

• Dateiverzeichnisse ermitteln 

• Verwaltung von Datenfeldern 


Information 

Haben wir uns in der ersten Sitzung mit der Oberflächenprogrammierung 
unseres Programms HAUSHALT befaßt, werden wir nun die Schnittstelle 
von Power Basic zum Betriebssystem ausnutzen, um eine Arbeitsdatei aus 
dem Dateiverzeichnis auszuwählen. Dazu wollen wir die Dateinamen, die 
unser Programm verarbeiten kann, in ein Datenfeld (Array) einiesen und 
an unsere allgemeine Auswahlroutine aus unserer ersten Sitzung überge¬ 
ben. Die einzelnen Dateieinträge sollen dabei alphabetisch sortiert zur 
Auswahl angeboten werden, so wie es in den meisten kommerziellen 
Programmen auch der Fall ist. Da unter Umständen keine Datei im 
aktuellen Verzeichnis verarbeitbar ist, muß eine Möglichkeit geschaffen 
werden, um neue Dateien komfortabel anlegen zu können. Welche 
Arbeitsdatei gewählt ist, soll in unserer Fußleiste auf dem Bildschirm mit 
eingetragen werden. Um die Programmierung einfacher zu gestalten, 
wird für unser Programm immer nur eine einzige Arbeitsdatei aktiv sein. 
Auf Dateiverknüpfungen werden wir bewußt verzichten. 

Wäre die Lösung dieser Aufgaben mit anderen Basic-Dialekten nur mit 
viel Aufwand zu realisieren, gestaltet sich die Programmierung in Power 
Basic durch den stark erweiterten Sprachumfang sehr einfach. So sind 
bereits alle benötigten Befehle zum Behandeln von Verzeichnissen und 
Dateien sowie Routinen zur Listenverwaltung vorhanden. 
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DOS-Befehle von Power Basic 

Beim Umgang mit Dateien ist eine Programmiersprache immer vom 
Betriebssystem abhängig, das für die Dateiorganisation und die Verzeich¬ 
nisstruktur verantwortlich ist. Die wichtigsten DOS-Befehle, die bereits von 
Power Basic zur Verfügung gestellt werden, sind in Tabelle 2.2.1 zusam¬ 
mengestellt. Nähere Informationen zu den einzelnen Anweisungen erhal¬ 
ten Sie über die interne Hilfsfunktion, wie in Kapitel 1 beschrieben. 


ATTRIB-Funktion 

Dateiattribute ermitteln 

ATTRIB-Befehl 

Dateiattribute setzen 

CHDIR 

Verzeichnis wechseln 

CHDRIVE 

Laufwerk wechseln 

CURDIR$ 

aktuelles Verzeichnis ermitteln 

DIR$ 

Dateiverzeichnisse ermitteln 

FILES 

Inhaltsverzeichnis anzeigen lassen 

KILL 

Datei löschen 

MKDIR 

Verzeichnis anlegen 

NAME 

Datei umbenennen 

RMDIR 

leeres Verzeichnis löschen 


Tabelle 2.2.1: Wichtige DOS-Anweisungen von Power Basic 


Power Basic verfügt noch über weitere Anweisungen für das Betriebs¬ 
system, die wir an dieser Stelle allerdings nicht erläutern wollen. Sie sehen, 
daß Sie umfangreiche Befehle zur Verfügung gestellt bekommen, die es 
Ihnen ermöglichen, einen Dateimanager für Ihre eigenen Programme zu 
entwickeln, so daß ein Rücksprung aus Ihrem Programm zur Kommando¬ 
zeilenebene des Betriebssystems in der Regel überflüssig wird. Notwendig 
für den Einsatz dieser Befehle ist, daß Sie umfangreiche Kenntnisse über 
die Verzeichnisstruktur und die Dateiverwaltung des Betriebssystems 
besitzen. 


Umgang mit Dateien 

Da wir in unserem Programm mit der gewählten Datei arbeiten, d.h. Daten 
aus der Datei lesen bzw. Daten in die Datei schreiben wollen, müssen wir 
die Datei zunächst öffnen. Ist eine Bearbeitung der Datei nicht mehr nötig, 
muß diese dementsprechend wieder geschlossen werden. Die Arbeits¬ 
datei, die wir mit unserer Auswahlroutine anwählen, kann direkt nach der 
Anwahl durch das Schlüsselwort OPEN geöffnet werden. Das Schließen 
der Datei kann am Programmende mit CLOSE geschehen. Dabei ist zu 


54 




Tutorium 


beachten, daß einer Datei beim Offnen immer eine bestimmte Dateinum¬ 
mer zugewiesen wird. Es dürfen niemals zwei Dateien mit derselben 
Dateinummer geöffnet werden, da ein Programm dann mit einer Laufzeit¬ 
fehlermeldung abbricht. Wählen wir in unserem Programm HAUSHALT 
also eine neue Arbeitsdatei, muß die alte Datei unbedingt zuerst geschlos¬ 
sen werden, damit wir wieder dieselbe Dateinummer verwenden können. 

Dateiarten 

Beim Öffnen einer Datei muß angegeben werden, ob die Datei als 
sequentielle, als Direktzugriffsdatei oder als Binärdatei geöffnet werden 
soll. Eine sequentielle Datei ist eine Datei, bei der alle Lese- und Schreib¬ 
vorgänge immer am Dateianfang beginnen müssen. Wollen Sie zum 
Beispiel den letzten von 5000 Datensätzen bearbeiten, müssen Sie zuvor 
auch die anderen 4999 Datensätze lesen. Ein Hauptanwendungsgebiet 
ist die Textverarbeitung. Die meisten Texteditoren (auch der Editor von 
Power Basic) speichern ihre Texte in sequentiellen Dateien. Direktzugriffs¬ 
oder Randomdateien werden insbesondere im Bereich der Dateiver¬ 
waltung eingesetzt. Hier kann gezielt auf jeden Satz über eine Satz¬ 
nummer zugegriffen werden. Wollen Sie in einer Randomdatei z.B. den 
5000. Datensatz verarbeiten, so brauchen Sie nicht alle anderen Daten¬ 
sätze auch zu lesen. Dadurch haben Sie einen erheblichen Geschwindig¬ 
keitsvorteil bei der Programmausführung gegenüber den sequentiellen 
Dateien. Jeder Datensatz in einer Direktzugriffsdatei hat, anders als in 
einer sequentiellen Datei, immer eine einheitliche Länge. Für die Dateiver¬ 
waltung in unserem Haushaltsprogramm werden wir diesen Dateityp 
verwenden. Außerdem bietet Power Basic den Umgang mit Dateien im 
Binärmodus an. Dateiinformationen lassen sich hier byteweise (zeichen¬ 
weise) lesen oder schreiben. Insbesondere zur Verarbeitung von Maschi¬ 
nenprogrammen bietet sich dieser Dateimodus an. 

Syntax: 

OPEN Dateiname FOR Modus AS Nummer 

Modus : sequentiell schreiben: OUTPUT 
sequentiell lesen : INPUT 
sequentiell anhängen : APPEND 
Direktzugriff : RANDOM 

binär : BINARY 
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Dateiverzeichnisse ermitteln 

Power Basic stellt neben der F/IESAnweisung, die es ähnlich dem DOS- 
DIR/W-Befehl ermöglicht, den Inhalt des aktuellen Dateiverzeichnisses 
anzuzeigen, auch eine spezielle Funktion mit dem Namen DIR$ zur 
Verfügung. Ermöglicht FILES lediglich eine Anzeige der Dateinamen auf 
dem Bildschirm, so können mit der Funktion DIR$ Dateinamen nach einem 
bestimmten Muster gesucht und bestimmten Variablen übergeben werden. 
Die Möglichkeiten dieser Funktion werden wir in unserem Praxisteil 
demonstrieren. 

Verwaltung von Datenfeldern 

Power Basic beinhaltet einige sehr leistungsfähige Anweisungen zur 
Listenverwaltung. Stellen Sie sich vor, Sie wollen in Ihrem Programm eine 
Liste mit 500 Namen erstellen. Dazu haben Sie ein Datenfeld mit dem 
Namen Nomen$ und der Anweisung DIM Nomen$(l:500) dimensio¬ 
niert. Im Anschluß daran haben Sie die einzelnen Elemente initialisiert, so 
daß jedem Element ein bestimmter Name zugewiesen ist, wie in der 
nachfolgenden Tabelle dargestellt. 

Namen$(1) = "ANTON" 

Namen$(2) = "EGON" 

Namen$(3) = "KAUS" 

Namen$(4) = "GUNDA" 

Namen$(5) = "INGO" 

Namen$(6) = "GERO" 

Namen$(7) = "PIA" 

Namen$(8) = "MARITA" 

Namen$(9) = "DOMINIK" 


Namen$(500) = "ANDREAS" 

Wenn Sie diese Liste nun alphabetisch aufsteigend oder absteigend 
sortieren lassen wollen, oder nach bestimmten Elementen suchen, löschen 
und einfügen wollen, so brauchen Sie lediglich die ARRA /-Anweisung 
von Power Basic zu verwenden, die die Listenverwaltung von sämtlichen 
in Power Basic zur Verfügung stehenden Datentypen erlaubt. Die verein¬ 
fachte Syntax der AR RA /-Anweisung hat folgenden Aufbau: 
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ARRAY Schlüssel Datenfeld Optionen/Ausdruck 


Schlüssel: SORT 
SCAN 
INSERT 
DELETE 


- Datenfeld sortieren 

- Datenfeld durchsuchen 

- Element einfügen 

- Element löschen 


Datenfeld: N$() - gesamtes Datenfeld 

N$() FOR 10 - Element 1 bis 10 

N$(5) FOR 10 - Element 5 bis 10 


Optionen : ASCEND - aufsteigend sortieren 

DESCEND - absteigend sortieren 

COLLATE - spezielle Stringsortierung 


Wir werden diese Anweisung in unserer Dateiauswahlroutine zum Sortie¬ 
ren der Dateiliste verwenden. 


Namensvergabe unter MS-DOS 

Dateinamen, die von einer Programmiersprache vergeben werden kön¬ 
nen, müssen immer auch zulässige Dateinamen für das Betriebssystem, in 
diesem Fall MS-DOS oder dazu kompatiblen Betriebssystemen, wie z.B. 
DR-DOS, sein. Jeder Dateiname kann aus bis zu 8 Zeichen bestehen, 
gefolgt von einem Punkt und einem sogenannten Suffix bzw. Dateikürzel. 
Für die Dateikürzel haben sich bereits eine Vielzahl von Kombinationen 
eingebürgert. Die wichtigsten, an die wir uns für die Basic-Programmie- 
rung halten sollten und einige Beispielnamen, sind in der nachfolgenden 
Liste aufgeführt. 

Dateikürzel: 


.BAS 

Basic-Quelldatei 

.H 

Headerdatei 

.INC 

INCLUDE-Datei 

.PBU 

Power-Basic-Unit 

.EXE 

ausführbares Programm 

.TXT 

Textdatei 

.DAT 

Datendatei 

.DBF 

Datenbank-Datei 


Beispiele: 

HAUSHALT. BAS 
TOOLS.BAS 
TOOLS.H 


Quelltext Haushaltsprogramm 
Quelltext der Unit TOOLS 
Headerdatei zur Unit TOOLS 
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TOOLS.PBU Funktionsbibliothek TOOLS 

HAUSHALT.DAT Doten-Dotei für HAUSHALT.EXE 

HAUSHALT.EXE ausführbares Programm HAUSHALT 

An diese Richtlinien der Namensvergabe werden wir uns auch in unserem 
Programm halten. 

Praxis 

Wie Sie sicherlich gemerkt haben, wurden in unserer ersten Sitzung eine 
Sammlung von Unterprogrammen und Funktionen angelegt, die wir in 
allen Programmen einsetzen können. Das Hauptprogramm bekam von 
uns den Namen WORK2.BAS und war zunächst in erster Linie als 
Demonstrations- und Testprogramm für eine Funktionsbibliothek angelegt. 
Die Grundstruktur für unser Haushaltsprogramm haben wir allerdings 
bereits in dieses Programm eingebaut. Da wir das Demo-Programm als 
unveränderte Kopie erhalten wollen, legen wir uns zunächst unser Haupt¬ 
programm HAUSHALT an. 


Bild 2.2.1: 
Erstellung von 
HAUSHALT.BAS 

Im Editor befindet sich noch unser Programm WORK2.BAS. Um eine 
Kopie für unser Hauptprogramm zu erzeugen, gehen wir mit Ifio 1 in das 
Menü und wählen die Menüfolge File —► Write To. In das sich anschlie¬ 
ßend öffnende Eingabefenster tragen wir nun den Namen HAUSHALT ein 
und quittieren mit [Return] (Bild 2.2.1). Da wir kein Suffix eingegeben 
haben, wird hier automatisch die Endung .BAS angehängt. Nach dieser 
Eingabe befindet sich neben WORK2.BAS die Kopie HAUSHALT.BAS auf 
der Festplatte. Die letztgenannte Datei befindet sich anschließend auto- 
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matisch im Editor, so daß wir das Hauptprogramm bearbeiten können. 
Damit das Programm auch als Hauptprojektname behandelt wird, legen 
wir über die Befehlsfolge Compile —► Main File unsere Hauptdatei fest. 
Das sich zunächst öffnende Fenster mit einer Suffixangabe (standard¬ 
mäßig .BAS) quittieren wir mit 1 Return] . Aus einer Dateiliste können wir 
anschließend unsere Hauptdatei HAUSHALT.BAS auswählen (Bild 2.2.2). 
Auch wenn wir in unserer späteren Programmentwicklung die Funktions¬ 
bibliothek TOOLS.BAS im Editor bearbeiten, wird bei jedem Übersetzen 
(Kompilieren) die Datei HAUSHALT.BAS als Hauptdatei übersetzt. 


Options Debug BreakAjatch 


Line 17 Col 1 
SINCLUDE "TOOLS.H" 
$LINK "TOOLS.PBU" 


Conpi lß 
Dßstination 
Find ßrror 



I Main fi1 b: 


HAUSHALT.BAS Uersion 1.00 


,- C:\PB\*.BAS - 

■!MIH!MMfTI7El tools. bas uork. bas 



uFarbß* 
hfarbß* 

Anzahlk = 8 
Hßnuß$<l> = "Datßiuahl’' 



Bild 2.2.2: 

Das Programm 
HAUSHALT.BAS 


Dateiwahl im Hauptprogramm 

Zunächst wollen wir unser Hauptprogramm aufbereiten, indem wir den 
Demonstrationsaufruf der Eingaberoutine am Programmende entfernen. 
Außerdem wollen wir den Aufruf für die Dateianwahl in unsere Haupt¬ 
schleife ( SELECT-CASE] für die Menüauswahl integrieren. Danach ergibt 
sich ein Quelltext des Hauptprogramms wie in Listing 2.2.1 dargestellt. 
Beachten Sie, daß der geänderte Quelltext durch Fettdruck hervorge¬ 
hoben ist. Auf diese Stellen sollten Sie sich besonders konzentrieren. 

$INCLUDE "TOOLS.H" 'Deklarationen der Unit TOOLS 

$LINK "TOOLS.PBU" 'Benutzerbibliothek TOOLS einbinden 


r *********************************************************************** 

'* Programmname : HAUSHALT.BAS Version 1.00 * 
'* Compiler : Power Basic 2.10 * 
'* verwendete Header-Dateien: TOOLS.H * 
'* verwendete Units : TOOLS.PBU * 
'* geschrieben : April/Mai 1991 * 
'* letzte Änderung : 16.05.1991 * 
> *********************************************************************** 
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$STACK 4000 

CLS 'Hauptprogramm HAUSHALT 


vfarbe% = 7 
hfarbe% = 1 
Anzahl% = 8 
Menue$(1) = 
Menue$(2) = 
Menue$(3) = 
Menue$(4) = 
Menue$(5) = 
Menue$(6) = 
Menue$(7) = 
Menue$(8) = 


'Daten initialisieren 
'Menüeinträge 

"Dateiwahl" 

"Dateneingabe" 

"Datenauswertung" 

"Druck" 

"Grafik" 

"OS-Shell" 

"Hilfe" 

"Ende" 


ArbeitsDatei$="keine" 

CALL Hintergrund(vfarbe%, hfarbe%) 

WHILE Wahl% <> 8 

CALL InfoZeile("HAUSHALT Version 1.00 - Einnahmen-"+_ 

"/Ausgabenüberschußrechnung ", 1, vfarbe%, hfarbe%) 

CALL InfoZeile(CHR$(24)+CHR$(25)+": Anwahl Menüeintrag"+_ 

" RETURN: Menüauswahl Arbeitsdatei: "+_ 
ArbeitsDatei$ + Space$(12), 25, vfarbe%, hfarbe%) 

CALL Auswahl(Menue$(), Anzahl%, vfarbe%, hfarbe%, Wahl%) 

SELECT CASE Wahl% 

CASE 1 'Arbeitsdatei wählen und öffnen 

IF ArbeitsDatei$ <> "keine" THEN 
CLOSE #DNr 
END IF 

CALL DateiNamen(Namen$(), vfarbe%, hfarbe%, Datei%) 
ArbeitsDatei$ = Namen$(Datei%) 

DNr = FREEFILE 

OPEN ArbeitsDatei$ FOR RANDOM AS #DNr LEN=50 

CASE 2 'Dateneingabe 

CASE 3 'Datenauswertung 

CASE 4 'Ergebnisse ausdrucken 

CASE 5 'Grafik 

CASE 6 'Tools (OS-Shell) 

CASE 7 'Hilfsfunktion 

CASE ELSE 
END SELECT 
WEND 

CLOSE #DNr 

COLOR 7, 0 
CLS 

PRINT "Programm beendet..." 

END 


Listing 2.2.1: Hauptprogramm für zweite Sitzung 


In unserem erweiterten Hauptprogramm haben wir nun eine neue Variable 
mit dem Namen ArbeitsDotei$ eingeführt, der am Anfang unmittelbar die 
Zeichenkette "keine” zugewiesen wird. Anhand dieser Initialisierung 
erkennen wir, daß noch keine Arbeitsdatei gewählt ist. Haben wir später 
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eine Datei aus dem Auswahlmenü gewählt, wird in dieser Zeichenketten¬ 
variable der Dateiname gespeichert. Eine Ausgabe in der unteren Bild¬ 
schirmzeile erfolgt mit Hilfe der Routine InfoZeile, ebenfalls unter Verwen¬ 
dung dieser Variablen. 

Mit Hilfe des Dateinamens ist es uns ferner möglich, zu kontrollieren, ob 
bereits eine Arbeitsdatei geöffnet ist. Ist nämlich der Dateiname nicht mehr 
"keine", so wurde bereits zuvor eine aktuelle Datei gewählt. In diesem 
Fall muß die alte Datei, um eine Fehlermeldung zu vermeiden, zunächst 
geschlossen werden. Dies wird über die nachfolgend noch einmal aufge¬ 
führte IF-Abfrage realisiert. 

IF ArbeitsDatei$ <> "keine" THEN 
CLOSE #DNr 
END IF 

Im Anschluß daran können wir die Dateiauswahl mit der benutzerdefinier¬ 
ten Routine DoteiNomen durchführen. Das Unterprogramm werden wir 
noch gesondert besprechen. Haben wir die Datei ausgewählt, wird über 
die Funktion FREEFILE eine freie Dateinummer ermittelt und die Datei mit 
dieser Nummer durch eine OPEN-Anweisung geöffnet. Da wir in unserer 
Datei jeden Datensatz gezielt bearbeiten wollen, wählen wir eine Direkt¬ 
zugriffsdatei, deren Datensatzlänge 50 Byte betragen soll. 

Das Unterprogramm zur Dateiauswahl 

Wir wollen in unserem Unterprogramm DoteiNamen eine Liste mit mög¬ 
lichen Arbeitsdateien verwalten und über unsere bereits in unserer ersten 
Sitzung formulierte Auswahlroutine anwählen. Welches Element aus 
unserer Liste gewählt wurde, soll an unser Hauptprogramm zurückge¬ 
geben werden. Der Unterprogrammkopf kann dann wie folgt formuliert 
werden: 

SUB DateiNamen(Namen$(), vfarbe%, hfarbe%, Wahl%) 

Nomen$() ist ein Datenfeld, das die Dateiliste enthält, vfarbe% und 
hfarbe% sind Variablen für die Farbeinstellung der Bildschirmausgaben, 
die in der Routine Auswahl benötigt werden, und in der Variablen Wahl% 
wird die Nummer des gewählten Listenelements zurückgegeben. Die 
gewählte Arbeitsdatei läßt sich dann über folgende Befehlszeile zu¬ 
weisen: 

ArbeitsDatei$ = Namen$(Wahl%) 
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Den kompletten Aufbau der Routine DateiNomen entnehmen Sie bitte dem 
Listing 2.2.2. Der Quelltext der Routine wird im Anschluß an unser 
Hauptprogramm, getrennt durch Kommentarzeilen, in den Editor von 
Power Basic eingegeben. 


> ****★***************'***********************★********★***★****'*"********* 

' * Unterprogramme und Funktionen für das Programm HAUSHALT * 

> *********************************************************************** 


SUB DateiNamen(Namen$(), vfarbe%, hfarbe%, 
Wahl% = 0 

Anzahl% = 0 ' 

Datei$ = DIR$("*.DAT") 

WHILE Datei$<>"" AND Anzahl% < 10 
Anzahl% = Anzahl%+1 
Namen$(Anzahl%) = Datei$ 

Datei$ = DIR$ 

WEND 
a$ = "" 

IF Anzahl% = 0 THEN 

Namen$(1) = " HAUSHALT.DAT" 

Wahl%= 1 

ELSEIF Anzahl%<10 THEN 

Anzahl% = Anzahl% + 1 ' 

Sonder$ = "neue Datei" 

Namen$(Anzahl%) = Sonder$ 


Wahl%) 

Dateieinträge ermitteln 
Suchmaske festlegen 
Einträge einiesen 


keine Datei gefunden 
Standardname erzeugen 


neue Datei erzeugen? 


END IF 

WHILE Wahl%=0 'Arbeitsdatei ermitteln 

CALL Hintergrund (vfarbe%, hfarbe%) 

CALL InfoZeile("Info: Bitte wählen Sie eine Arbeitsdatei aus dem"+_ 

" folgenden Menü...", 1, vfarbe%, hfarbe%) 

ARRAY SORT Namen$() FOR Anzahl% 'Dateien alphabetisch sortieren 

CALL Auswahl (Namen$(), Anzahl%, vfarbe%, hfarbe%, Wahl%) 

IF RTRIM$(Namen$(Wahl%)) = Sonder$ THEN 

CALL Fenster(10, 30, 44, 1, vfarbe%, hfarbe%) 

Namen$(Wahl%) = RIGHT$(Date$, 4) 

CALL Eingabe("Bitte neuen Dateinamen eingeben: ", Namen$(Wahl%), 8, 
11, 32, vfarbe%, hfarbe%) 

IF RTRIM$(Namen$(Wahl%)) = "" THEN 
Namen$(Wahl%) = "HAUSHALT" 


END IF 


Namen$(Wahl%) = Namen$(Wahl%) + ".DAT" 
END IF 
WEND 


CALL Hintergrund (vfarbe%, hfarbe%) 
END SUB 


Listing 2.2.2: Unterprogramm DateiNamen 


Da die Routine sehr ausführlich im Quelltext kommentiert ist, wollen wir 
uns an dieser Stelle auf spezielle Erläuterungen beschränken. 
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Vergleichen Sie die Parameterliste bei dem Unterprogramm DateiNomen 
mit der Parameterliste beim Aufruf im Hauptprogramm. Sie werden sehen, 
daß die Variablentypen (z.B. Ganzzahl Wohl% und Dafe/%), nicht aber 
die Dateinamen übereinstimmen müssen. Sie sehen auch, daß innerhalb 
unserer benutzerdefinierten Routine wiederum bereits zuvor entwickelte 
Unterprogramme aufgerufen werden können. Auf diesem Wege lassen 
sich aus einfachen Grundfunktionen immer komplexere Routinen ent¬ 
wickeln. 

a Versuchen Sie nicht, einen komplizierten Sachverhalt unbedingt in einem 
Unterprogramm zu lösen, sondern teilen Sie diesen Sachverhalt in sinnvolle 
Teilbereiche auf. Dadurch ist Ihr Programm einfacher zu lesen und Teil¬ 
bereiche lassen sich besser austesten und überarbeiten. 

Wesentlicher Bestandteil der Routine DateiNomen ist die Power-Basic- 
Anweisung DIR$. Durch den ersten Aufruf Datei$=DIR$("*.DAT") legen 
wir die Suchmaske fest, d.h., alle Dateien in unserem aktuellen Verzeich¬ 
nis, die über das Suffix .DAT verfügen, sollen in unserer Auswahlroutine 
angeboten werden. In einer WH/LE-VVEND-Schleife werden anschließend 
bis zu 10 Dateieinträge im Verzeichnis gesucht und unserem Datenfeld 
Namen$() zugeordnet. 

Um einen Fehler in unserer Auswahlroutine zu vermeiden, initialisieren 
wir das erste Array-Element mit dem Namen "HAUSHALT.DAT", wenn 
keine Datei der vorgegebenen Suchmaske entspricht (dann Anzahl%=0). 
Solange weniger als zehn Arbeitsdateien im Verzeichnis gefunden wer¬ 
den, wird die Möglichkeit geschaffen, neue Dateien anzulegen (dann 
Anzahl%<10). Dazu wird ein weiteres Element unseres Datenfelds mit 
dem Eintrag " neue Datei " initialisiert. Wird dieser Eintrag später durch 
die Auswahlroutine gewählt, wird eine Eingaberoutine für Dateinamen 
aufgerufen (dann RTRIM$(Namen$(Wahl%))=Sonder$). Die Funktion 
RTRIM$ entfernt die rechts vom Dateinamen vorhandenen Leerzeichen, 
die von der Routine Auswahl angehängt werden, damit sämtliche Listen¬ 
einträge eine einheitliche Zeichenkettenlänge aufweisen. 

Bevor wir die Auswahlroutine aufrufen, wird zunächst unser Datenfeld 
über die ARRAY-Anweisung alphabetisch sortiert. Beachten Sie, daß wir 
lediglich die bereits initialisierten Einträge (ARRAYSORTNamen$(), FOR 
Anzah\%) sortieren lassen. 
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den folgenden Menti.. . 


liggi.DQT 


HAUSHALT.DAT 
JANUAR.DAT 
neue Datei 


|tt: Anuahl Henlieintrag RETURN: Heniiausuahl^ 


Arbeilsdate 


Bild 2.2.3: 
Dateiauswahl 
im Programm 


HAUSHALT 



Bild 2.2.4: 
Eingabe eines 
neuen Datei¬ 
namens bei der 
Dateiauswahl 


Wie sich unsere erstellte Routine DateiNamen auf dem Bildschirm darstellt, 
wird in den Bildern 2.2.3 und 2.2.4 deutlich. 
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Workshop 

Checkliste 

1. Welche DOS-Befehle sind in Power Basic realisiert? 

2. Welche Dateitypen haben Sie kennengelernt und wo liegen die wesentlichen 
Anwendungsbereiche? 

3. Erläutern Sie die Regeln zur Dateinamensvergabe unter Power Basic! 

4. Welche Aufgaben sind in einer Listenverwaltung durchzuführen und welche 
Befehle stehen hierzu in Power Basic zur Verfügung? 


Ideen für eigene Übungen 

• Erweitern Sie die Routine zur Dateiwahl so, daß Sie auch das Verzeichnis 
wechseln können. 

• Erweitern Sie die Routine so, daß Sie auch Informationen über die Dateigröße 
bei der Auswahl erhalten (ähnlich dem DOS-DIR-Befehl). 
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2.3 Dritte Sitzung: Dateneingabe der 
Einnahmen und Ausgaben 

Die Themen dieser Sitzung: 

• Bildschirmausgaben 

• Programmieren einer Eingabemaske 

• Verknüpfung der Eingabe mit der Datenverwaltung 

• Felddefinition von Datensätzen 

• Abfangen von Laufzeitfehlern 


Information 

In dieser Sitzung wollen wir die für unsere Einnahmen-/Ausgabenverwal- 
tung benötigten Daten über eine einfache Eingaberoutine einiesen lassen. 
Die Eingaben sollen nunmehr kontrolliert erfolgen, d.h., an den Stellen, 
an denen wir Zahlen eingeben müssen, sollen keine Buchstaben eingeb- 
bar sein. Zu diesem Zweck werden wir unsere in der ersten Sitzung 
erstellte Eingaberoutine überarbeiten und dementsprechend erweitern. Da 
wir zu jedem Datensatz, d.h. zu jeder Buchung, mehrere Informationen 
benötigen, werden wir eine Eingabemaske konstruieren, die es uns 
ermöglicht, zwischen den unterschiedlichen Eingabefeldern zu wechseln. 
Dazu ist es bereits erforderlich, die Datenstruktur unserer Arbeitsdatei 
genauer festzulegen. Wir müssen uns entscheiden, welche Information wir 
zu jeder Buchung speichern wollen. 

Um Fehler während der Laufzeit des Programms zu vermeiden, müssen 
wir ferner eine Möglichkeit schaffen, die Dateneingabe nicht durchführen 
zu lassen, solange noch keine Arbeitsdatei gewählt wurde. 

Da wir uns für eine Direktzugriffsdatei entschieden haben, in der unsere 
Daten gespeichert werden sollen, ist es sinnvoll, die Dateneingabe mit der 
Datenverwaltung in unserer Arbeitsdatei zu koppeln. Aus diesem Grund 
werden wir in dieser Sitzung bereits das Grundgerüst für die Dateiverwal¬ 
tung integrieren, das Schwerpunktthema unserer nächsten Sitzung sein 
wird. 
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Bildschirmausgaben 

In Power Basic lassen sich über die Befehle COLOR, LOCATE und PRINT 
sehr einfach ansprechende Bildschirmausgaben vornehmen. So können 
wir über COLOR die Farbe der Ausgaben festlegen, mit LOCATE können 
wir den Textcursor an eine bestimmte Stelle des Bildschirmes positionieren 
und mit PRINT lassen sich Informationen ausgeben. Von diesen Mög¬ 
lichkeiten haben wir bereits in unserer Funktionsbibliothek ausgiebigen 
Gebrauch gemacht. 

Erstellung einer Eingabemaske 

Im Vergleich zur einfachen Eingabe, wie wir sie z.B. bei der Neuanlage 
von Arbeitsdateien kennengelernt haben, können in einer Eingabemaske 
parallel mehrere Eingaben gemacht werden. Zwischen den Eingabefel¬ 
dern, die in einer Maske definiert werden, kann über Tastaturbefehle 
gewechselt werden, so daß einzelne Eingaben mehrmals editierbar sind. 
Die einzelnen Eingabefelder gehören dabei zusammen, wie z.B. die 
Datenfelder eines Datensatzes. Die einfachste Möglichkeit, eine Maske 
zu erstellen, ist die Kombination mehrerer INPUT- Anweisungen. Vor jedem 
INPUT wird der Cursor dabei an die entsprechende Bildschirmposition 
plaziert. Die Unzulänglichkeiten dieser Power-Basic-Anweisung haben wir 
allerdings schon kennengelernt (keine Eingabefeldbegrenzung). Da wir 
bereits über eine einfache Eingaberoutine verfügen, werden wir die 
INPUT -Anweisung wieder durch unsere benutzerdefinierte Eingaberoutine 
Eingabe ersetzen. 

Verknüpfung der Eingabe mit der Datenverwaltung 

Bei der Wahl von Direktzugriffsdateien ist eine unmittelbare Verknüpfung 
mit der Datenverwaltung sinnvoll. Jeden Datensatz können Sie unmittelbar 
nach der Bearbeitung gezielt in die Arbeitsdatei schreiben. Ihre Datei ist 
damit immer auf dem aktuellen Stand, selbst wenn Ihr Rechner durch einen 
Stromausfall oder einen Systemabsturz keine Arbeiten mehr durchführen 
kann. Würden Sie z.B. mit einer sequentiellen Datei arbeiten, müßte der 
komplette Datenbestand in den Speicher eingelesen werden. Nach der 
Bearbeitung der gesamten Datei könnte dann der Datenbestand wieder 
in die sequentielle Datei geschrieben werden. Durch dieses Vorgehen 
ersparen Sie sich die zeitaufwendigen Lese- und Schreibvorgänge. Fällt 
Ihr Rechner allerdings während der Bearbeitungsphase aus, gehen sämt¬ 
liche gemachten Dateiänderungen unwiderruflich verloren. 
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An dieser Stelle soll noch ein weiterer Nachteil der sequentiellen Dateien 
angeführt werden. Wird der Gesamtinhalt im Speicher verarbeitet, so ist 
die Dateigröße, anders als bei Randomdateien, auf die Arbeitsspeicher¬ 
größe beschränkt. Eine unmittelbare Verknüpfung der Eingaberoutine und 
der Datenverwaltung ist bei sequentiellen Dateien nicht sinnvoll. 

Felddefinition von Datensätzen 

In jedem Datensatz können mehrere Informationen gespeichert werden. 
Somit lassen sich die durch eine Eingabemaske erhaltenen, zusammen¬ 
gehörigen Ergebnisse unmittelbar in einen gemeinsamen Block (Daten¬ 
satz) schreiben und später zusammenhängend wieder lesen. Die Auftei¬ 
lung in sogenannte Datenfelder erfolgt dabei durch die F/E/.D-Anweisung. 
Wollen Sie z.B. eine Namensliste in einer Randomdatei speichern, wobei 
die Vornamen und Nachnamen in getrennten Feldern verwaltet werden, 
müssen Sie sich zunächst Klarheit über die benötigten Feldlängen ver¬ 
schaffen. Gehen wir davon aus, daß der derzeit längste Vorname aus 
30 Zeichen und der längste Nachname aus 40 Zeichen besteht. Zur 
Reserve addieren Sie für jedes Feld 5 Zeichen hinzu, so daß sich folgende 
Anforderungen ergeben: 

Vorname : max. 35 Zeichen 
Nachname : max. 45 Zeichen 
Gesamtlänge: 80 Zeichen 

Um die Datei zu öffnen und die Felder dementsprechend zu definieren, 
könnten Sie folgenden Quelltext einsetzen: 

'freie Dateinummer ermitteln 
Nr = FREEFILE 

'Randomdatei öffnen und Datensatzlänge 
'auf 80 Zeichen festlegen 
OPEN "TEST.DAT" FOR RANDOM AS #Nr LEN=80 
'Datenfelder definieren 

FIELD #Nr, 35 AS VorName$, 45 AS NachName$ 

Abfangen von Laufzeitfehlern 

Bei der Programmierung sollte man Probleme, die sich ergeben können, 
unmittelbar berücksichtigen. Zu diesem Zweck bietet sich die Einführung 
von Steuerungsvariablen an. Abhängig von diesen Variablen kann dann 
die Programmausführung gesteuert werden. Dabei spielen vor allen 
Dingen Laufzeitfehler eine Rolle, Fehler also, die erst in Sonderfällen bei 
der Programmausführung auftreten und nicht unmittelbar bei der Pro¬ 
grammentwicklung sichtbar werden. Bedenken Sie, daß die an eigene 
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Routinen übergebenen Werte nicht immer kontrolliert werden. In unserem 
Fall würde die Dateneingabe, falls noch gar keine Arbeitsdatei ausge¬ 
wählt und geöffnet wurde, zu einem Laufzeitfehler führen. In unserem 
Programm HAUSHALT werden wir daher die Dateneingabe nur zulassen, 
wenn zuvor eine Arbeitsdatei aktiviert wurde. 

Praxis 

Haben wir uns in den ersten Sitzungen ausführlich mit dem Hauptpro¬ 
gramm befaßt, wollen wir an dieser Stelle lediglich die Programmzeilen 
anführen, die in der SELECT-CASE -Anweisung zu ergänzen sind. 

^unveränderter Quelltext 

CASE 2 'Dateneingabe 

IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 

CALL DatenEingabe(DNr, vfarbe%, hfarbe%) 

END IF 

CASE 3 'Datenauswertung 

:unveränderter Quelltext 

Listing 2.3. 1: Erweiterung des Hauptprogramms HAUSHALT.BAS für die Dateneingabe 

Über die Steuerungsvariable ArbeitsDotei$ können wir die Zulässigkeit 
von Eingaben überprüfen. Wurde keine Arbeitsdatei gewählt, wird durch 
das Unterprogramm KeineDateiAktiv eine Meldung für den Programm¬ 
anwender ausgegeben, ansonsten wird ein Unterprogramm für die Daten¬ 
eingabe aufgerufen. Die Unterprogramme werden wir später noch ge¬ 
nauer besprechen. Auf diesem Wege vermeiden wir das Auftreten von 
Laufzeitfehlern. 

Die Erweiterung der Eingaberoutine 

Wie bereits erwähnt, wollen wir in dieser Sitzung unsere Eingaberoutine 
optimieren. Die veränderte Routine ist in Listing 2.3.2 abgedruckt, ge¬ 
machte Änderungen sind durch Fettdruck hervorgehoben. Innerhalb der 
Benutzeroberfläche von Power Basic müssen Sie, um die Routine bearbei¬ 
ten zu können, die Datei TOOLS.BAS laden (Bild 2.3.1). 
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Bild 2.3.1: 

Laden der Datei 
TOOLS. BAS 

Power Basic trägt Dateien in sogenannte Pick-Listen ein, d.h., Sie können 
über die Tastenkombination 1 Alt 1 + (eT| bzw. über die Menüfolge File — 1 ► 
Pick eine bestimmte Quelldatei, die zu einem Hauptprogramm gehört, in 
den Editor laden. Da der Editor von Power Basic nur Quelltexte mit 
64 Kbyte Umfang, der Compiler aber weitaus größere Dateien verarbei¬ 
ten kann, haben Sie damit die Möglichkeit, auch mit gesplitteten Program¬ 
men komfortabel zu arbeiten. Dazu sollten Sie, wie bereits in der zweiten 
Sitzung beschrieben, den Main file mit dem Namen Ihres Hauptpro¬ 
gramms, in diesem Fall HAUSHALT.BAS, festgelegt haben. 

Uber Pick können Sie recht schnell zwischen einzelnen Programm-Modu¬ 
len springen, in unserem Fall zwischen dem Hauptprogramm und der 
Funktionsbibliothek. Bei einem /Comp/7/er-Befehl wird nun immer das 
Programm HAUSHALT.BAS übersetzt. 

a Beachten Sie, daß wir in unserem Hauptprogramm immer die fertig kompi- 
lierte Unit mit dem Kompilier Befehl $LINK "TOOLS.PBU" einbinden. Nehmen 
wir Änderungen an dieser Unit vor, müssen wir sie auch getrennt neu 
übersetzen. Alternativ könnte man in einem Hauptprogramm den Quelltext 
der Bibliothek mit $INCLUDE einbinden, dann würde der Quelltext allerdings 
bei jedem Ubersetzungsvorgang erneut übersetzt, auch dann, wenn gar 
keine Änderungen vorgenommen wurden. 

Der Umgang mit den Pick-Listen ist zunächst ein wenig gewöhnungsbe¬ 
dürftig, aber bei einiger Übung werden Sie diese verstärkt einsetzen. Die 
Anwendung dieser Möglichkeit ist wahlfrei, so daß Sie, wenn Sie mit 
dieser Handhabung nicht zurechtkommen, jede Quelldatei eigenständig 
im Editor behandeln können. 
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Bild 2.3.2: 
Rückkehr zu 
HAUSHALT.BAS 
über die 
Pick-Liste 

Nun wollen wir aber die wesentlichen Änderungen der Eingaberoutine 
besprechen. Bei einer Erweiterung von benutzerdefinierten Routinen soll¬ 
ten Sie darauf achten, möglichst keine Änderungen an den Parameter¬ 
listen vorzunehmen. Dann kann die Funktion wie bisher angewendet 
werden und ältere Programme können mit der erweiterten Routine, 
unmittelbar und ohne weitere Änderungen der Programmaufrufe im Haupt¬ 
progamm vorzunehmen, eingesetzt werden. 

SUB Eingabe (VorgabeS, EingabS, Laenge%, Zeile%, Spalte%, vfarbe%, 
hfarbe%) PUBLIC 

IF LEFT$(Vorgabe$, 2) = "I|" THEN 'Beschränkung auf Ganzzahlen 

Zulaessig$ = "-+1234567890" 

Vorgabe$ = RIGHT$(Vorgabe$, LEN(Vorgabe$) - 2) 

ELSEIF LEFT$(VorgabeS, 2) = "RI" THEN 'Fließkommazahl 
Zulaessig$ = "-+.,1234567890" 

Vorgabe$ = RIGHT$(Vorgabe$, LEN(Vorgabe$) - 2) 

END IF 

LOCATE Zeile%, Spalte% 

COLOR vfarbe%, hfarbe% 

PRINT Vorgabe$; 

COLOR hfarbe%, vfarbe% 

PRINT Eingab$ + SPACE$(Laenge% - LEN(Eingab$)); 

MinSpalte% = LEN(Vorgabe$) + Spalte% 

MaxSpalte% = LEN(Vorgabe$) + Spalte% + Laenge% - 1 
EditSpalte% = LEN(VorgabeS) + Spalte% + LEN(Eingab$) 

IF EditSpalte%>MaxSpalte% THEN EditSpalte%= EditSpalte% - 1 
WHILE Zeichen$ <> CHR$(13) 

LOCATE Zeile%, EditSpalte%, 1 
Zeichens = INKEY$ 

IF LEN(Zeichens) = 1 THEN 
SELECT CASE ASC(ZeichenS) 

CASE 8 'Backspace 

IF EditSpalte% > MinSpalte% THEN 
IF LEN(EingabS) = Laenge% THEN 



FOR y* = 1 TO Anzahl2 'elnheitl. Stringlänge 

TextKy*) = SollLen$<Text$<y2), Breite/:) 

NEXT y Y. 

Breitet = Breitet + 2 
CALL Fenster(5, 5, Breitel 
FOR X* = 1 TO Anzahl2 
IF X* = 1 THEN 

COLOR hfarbeX, ufarbe* 
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EditSpalte% = EditSpalte% + 1 
END IF 

Eingab$ = LEFT$(Eingab$, LEN(Eingab$) - 1) 

LOCATE Zeile%, MinSpalte% 

PRINT Eingab$ + SPACE$(Laenge% - LEN(Eingab$)); 

IF MinSpalte% < EditSpalte% THEN 
EditSpalte% = EditSpalte% - 1 
END IF 
END IF 

CASE 32 TO 254 

IF Zeichen$ = "." OR Zeichen$ = ", " THEN 

IF INSTR(Eingab$, ANY > 0 THEN 'maximal ein Komma 

Zeichen$ = "" 

ELSE 

Zeichen$ = "." 'Komma intern 

END IF 
END IF 

IF Zulaessig$ <> "" THEN 'Zeichen zulässig? 

IF INSTR(ZulaessigS, Zeichen$) = 0 THEN 

Zeichen$ = "" 'nein! 

ELSEIF EditSpalte% > MinSpalte% THEN 'evtl, nicht in 

'der Position 

IF INSTRZeichen$) > 0 THEN 

Zeichen$ = "" 'Vorzeichen nur an 

END IF ' erster Position 

END IF 
END IF 

IF Zeichen$<>"" THEN 

IF EditSpalte% <= MaxSpalte% THEN 
IF LEN(Eingab$) = Laenge% THEN 

EingabS = LEFT$(EingabS, LEN(Eingab$) - 1) 

END IF 

Eingab$ = Eingab$ + Zeichen$ 

LOCATE Zeile%, MinSpalte% 

PRINT Eingab$ + SPACE$(Laenge% - LEN(Eingab$)); 

IF MaxSpalte% > EditSpalte% THEN 
EditSpalte% = EditSpalte% + 1 
END IF 
END IF 
END IF 
CASE ELSE 
END SELECT 
END IF 

IF Zeichens <> CHR$(13) THEN Zeichens = "" 

WEND 
END SUB 

iisting 2.3.2: Die überarbeitete Eingaberoutine 

In dem am Beginn des Unterprogramms eingefügten /F-Block werden die 
zulässigen Eingabezeichen behandelt. Um dem Hauptprogramm die 
Möglichkeit zu geben, ohne die Einführung eines neuen Unterprogramm- 
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Parameters, Eingabezeichen zu definieren, wird die Variable Vorgabe$ 
in ihrer Anwendung erweitert. Wird die Zeichenkette, die an Vorgobe$ 
übergeben wird, durch "II" oder "RI" eingeleitet, sind nur Zahlen, d.h. 
entweder Ganzzahlen oder Fließkommazahlen, ansonsten sämtliche 
alphanumerischen Zeichen bei der Eingabe erlaubt. Dieses Definitions¬ 
merkmal wird, falls es vorhanden ist, durch die Anweisung Vorgabe$ = 
RightSlVorgobeS.LENlVorgobeS)-2) direkt wieder entfernt. 

Um die Information weiter zu nutzen, wird die lokale Variable Zuloessig$ 
eingeführt, in der die zulässigen Eingabezeichen definiert werden. Ge¬ 
genüber den Ganzzahlen Typ Integer) wird bei den Fließkomma¬ 
zahlen ("/?/": Typ Real) zusätzlich der Dezimalpunkt zugelassen. Außer¬ 
dem soll die Möglichkeit gegeben werden, sowohl positive als auch 
negative Zahlen einzugeben. 

Am Ende des Unterprogramms müssen nun noch der Dezimalpunkt und 
die Vorzeichen gesondert behandelt werden. Da wir sämtliche Eingaben 
in Zeichenketten vornehmen, müssen wir numerische Werte später in 
Zahlenwerte konvertieren. Da Power Basic über diese Konvertierroutinen 
bereits verfügt, ist es sinnvoll, die Zeichenkette nur mit korrekter Formatie¬ 
rung, die anschließend eine fehlerfreie Umsetzung erlaubt, eingeben zu 
lassen. Dazu wird das jeweilig über die /N/(EY$-Anweisung eingelesene 
Zeichen, bevor eine Zeichenkette für die Eingabe aufgebaut wird, auf 
Zulässigkeit überprüft. Da in Deutschland das Dezimalkomma gebräuch¬ 
lich ist, Power Basic intern aber mit dem amerikanischen Dezimalpunkt 
arbeitet, wird ein wahlfrei eingegebenes Komma automatisch durch die 
nachfolgenden Zeilen in einen Dezimalpunkt umgesetzt. Zusätzlich wird 
durch die /NS7T?-Funktion dafür gesorgt, daß höchstens ein Dezimalpunkt 
innerhalb einer Eingabe vorhanden ist. 

IF Zeichen$ = OR Zeichen$ = THEN 

IF INSTR(Eingab$, ANY > 0 THEN 

Zeichen$ = "" 

ELSE 

Zeichen$ = 

END IF 
END IF 

Im Anschluß daran wird die Überprüfung auf zulässige Zeichen vorge¬ 
nommen. Ist das Zeichen nicht erlaubt, also nicht innerhalb von Zulaessig$ 
enthalten, so wird es gelöscht und für die Eingabe nicht verwendet. 
Außerdem wird bei den Vorzeichen darauf geachtet, daß diese nur als 
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erste Zeichen in einem Eingabefeld zulässig sind (dann: EditSpalte%=Min- 
Spolte%). 

IF Zulaessig$ <> "" THEN 

IF INSTR(Zulaessig$, Zeichen$) = 0 THEN 
Zeichen$ = "" 

ELSEIF EditSpalte% > MinSpalte% THEN 
IF INSTR("+-", Zeichen$) > 0 THEN 
Zeichen$ = "" 

END IF 
END IF 
END IF 


Beachten Sie, daß in der derzeitigen Unterprogrammversion die Beschrän¬ 
kungen des Kommas und der Vorzeichen auch für alphanumerische Eingaben 
gelten. Eine weitere Optimierung der Routine ist also durchaus möglich. 


Wenn Sie die Datei nun im Editor auf den neuesten Stand gebracht und 
in eine Unit kompiliert haben (dazu sollten Sie den Main File zunächst 
entfernen), können Sie über die Pick-Liste zu dem 4 ' Programm HAUS¬ 
HALT.BAS, wie oben beschrieben, zurückkehren (Bild 2.3.2). 


Unterprogramme für die Dateneingabe 

Wie bereits im Hauptprogramm eingefügt, benötigen wir die Unterpro¬ 
gramme KeineDateiAktiv und Dateneingabe. Diese geben wir in den 
Editor unmittelbar nach dem in unserer zweiten Sitzung erstellten Unter¬ 
programm DateiNamen ein. Für die Dateneingabe benötigen wir das 
deutsche Datum (wie wir später noch sehen werden) und ein Unterpro¬ 
gramm, um die Bildschirmmaske zu aktualisieren. Da diese Routinen 
(Listing 2.3.2) recht einfach zu verstehen sind, wollen wir sie hier kurz 
besprechen. 

In der Routine KeineDateiAktiv wird die Meldung auf dem Bildschirm 
ausgegeben, daß zunächst eine Arbeitsdatei gewählt werden muß. Diese 
Meldung bleibt so lange in einem Bildschirmfenster ( CALL Fenster) stehen, 
bis eine beliebige Taste gedrückt wird (CALL Taste). 

SUB KeineDateiAktiv(vfarbe%,hfarbe%) 

COLOR hfarbe%, vfarbe% 

CALL Fenster(10, 30, 48, 1, vfarbe%, hfarbe%) 

LOCATE 11, 32, 0 

PRINT "Bitte wählen Sie zunächst eine Arbeitsdatei..." 

CALL Warte 

COLOR vfarbe%, hfarbe% 

END SUB 

SUB AktualisiereMaske(SatzNummerS, Datum$, Kommentar?, Wert$,_ 
vfarbe%, hfarbe%) 


74 



Tutorium 


COLOR vfarbe%, hfarbe% 

LOCATE 9, 31/ 0 : PRINT SatzNummer&; SPACE$(10) 

LOCATE 11/ 31 : PRINT Datum$ 

LOCATE 13, 31 : PRINT SollLen$(Kommentar$, 36) 

LOCATE 15, 31 : PRINT SollLen$(Wert$,15) 

END SUB 

Listing 2.3.3: Allgemeine Unterprogramme für die Dateneingabe 

Unser Datensatz soll aus den Feldern Buchungsdatum, Kommentar zur 
Buchung und der Buchungssumme bestehen. Die Feldinhalte müssen 
jeweils in unsere Bildschirmmaske eingetragen werden. Die Maske selbst 
ist ganz gezielt über Testläufe angepaßt worden. Es wäre also sinnvoll, 
den Aufbau einer Bildschirmmaske über Unterprogramme weiter zu 
vereinfachen. Die Routine AktuolisiereMoske schreibt die später aus der 
Datei gelesenen Informationen gezielt in unsere markierten Eingabefelder, 
wie sie bei der Dateneingabe definiert wurden. Außerdem wird die 
jeweils aktuelle Datensatznummer, die intern zu ermitteln ist, angezeigt. 

Die Dateneingabe 

Um die Programmierung zu vereinfachen, sollten Sie, auch wenn eine 
Verknüpfung der Dateneingabe und der Verwaltung dieser Daten in 
Direktzugriffsdateien sinnvoll wäre, keine parallele Entwicklung dieser 
Routine vornehmen. Wir werden uns zunächst lediglich auf die Datenein¬ 
gabe beschränken (Listing 2.3.3) und die Routine, ähnlich wie bereits 
unsere allgemeine Eingaberoutine, in der nächsten Sitzung um spezielle 
Anweisungen erweitern. 

SUB DatenEingabe(DateiNummer, vfarbe%, hfarbe%) 

FIELD #Dateinummer, 10 AS BuchungsDatum$, 36 AS Beschreibung$,_ 

4 AS Betrag$ 

CALL Hintergrund(vfarbe%, hfarbe%) 

CALL Fenster(8, 10, 60, 8, vfarbe%, hfarbe%) 

CALL InfoZeile("PgUp/PgDn: Datensätzen blättern Return: Buchung"+_ 

" vornehmen ESC: Eingabeende", 25, vfarbe%, hfarbe%) 
LOCATE 9, 12 'Eingabemaske ausgeben 
PRINT "Datensatznummer : "; 

LOCATE 11, 12 

PRINT "Buchungsdatum : "; 

LOCATE 13, 12 

PRINT "Beschreibung : ["+SPACE$(36)+"]"; 

LOCATE 15, 12 

PRINT "Einnahme/Ausgabe: ["+SPACE$(15)+"]"; 

CALL Fenster(19, 10, 60, 3, vfarbe%, hfarbe%) 

LOCATE 20, 12 

PRINT "Eine Einahme wird mit einem positivem [ + ] und eine Ausgabe" 

LOCATE 21, 12 

PRINT "mit einem negativen Vorzeichen [-] in der ersten Spalte" 
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LOCATE 22, 12, 0 

PRINT "gekennzeichnet. Die Verwendung des [+] ist dabei wahlfrei." 

'hier muß u.U. ein zu Beginn eingelesener 
'Datensatz initialisiert und an die 
'Eingabemaske übergeben werden 
EditFeld% = 0 
WHILE a$OCHR$ (27) 

a$ = INKEY$ 'ESC Eingabeende 

b$=RIGHT$(a$, 1) 

IF b$=CHR$(81) THEN 'PgUp 

'hier wird später in der Datei 
'zurückgeblättert, die Daten werden 
'aus der Datei eingelesen und zuge- 
'wiesen 

ELSEIF b$=CHR$(73) THEN 'PgDn 

'hier wird später weitergeblättert, 

'Daten werden aus der Datei gelesen 
'und zugewiesen 

ELSEIF a$=CHR$(13) THEN 'Return 

EditFeld% = EditFeld% XOR 1 'editiere 1. bzw. 2.Feld 

IF EditFeld%=l THEN 

Kommentar$ = RTRIM$(Kommentar$) 

CALL Eingabe("", Kommentar$, 36, 13, 31, vfarbe%, hfarbe%) 

ELSE 

Ein$ = RTRIM$(Ein$) 

CALL Eingabe("R|", Ein$, 15, 15, 31, vfarbe%, hfarbe%) 

END IF 
END IF 

IF b$=CHR$(73) OR b$=CHR$(81) OR a$=CHR$(13) THEN 

CALL AktualisiereMaske (SatzNummerS, Datum$, Kommentar$,_ 

Ein$, vfarbe%, hfarbe%) 

END IF 
WEND 

CALL HinterGrund(vfarbe%, hfarbe%) 

END SUB 

Listing 2.3.4: Grundgerüst der Dateneingabe 

Beachten Sie, daß für die Felddefinition und die Schreib- und Lesebefehle 
der Arbeitsdatei die Dateinummer notwendig ist, die im Hauptprogramm 
beim OPEN-Befehl vergeben wird. Aus diesem Grund muß die Dateinummer 
auch im Unterprogramm bekannt sein. Dies haben wir an dieser Stelle durch 
den speziellen Parameter DateiNummer im Unterprogrammkopf realisiert. 

Zunächst wird in unserer Routine DatenEingabe der Feldaufbau für unsere 
Datei definiert. An diesen Feldaufbau werden wir uns bereits bei der 
Erstellung der Eingabemaske halten müssen. Die einzelnen Längen sind 
in der nachfolgenden Liste noch einmal zusammengestellt. 
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Datenfeldbezeichnung 

Datenfeldlänge 

BuchungsDatum$ 

10 Zeichen 

ZeichenBeschreibung$ 

36 Zeichen 

ZeichenBetrag$ 

4 Zeichen 


Tabelle 2.3.1: Dateiformat für das Programm HAUSHALT 


Unsere Datensatzlänge beträgt also genau 50 Zeichen, wie bereits im 
Hauptprogramm in der OPEN-Anweisung definiert, so daß hier keine 
Änderungen erforderlich sind. Das Buchungsdatum ist das gegenwärtige 
Systemdatum, so daß wir es automatisch eintragen lassen können. Wie, 
das werden wir in der nächsten Sitzung sehen. An dieser Stelle können 
wir uns also auf die Eingabe der Buchungsbeschreibung und des 
Buchungsbetrages beschränken. 

[£§=> Das Datenfeld für die Buchungssumme besteht zwar nur aus vier Zeichen, 
d.h. aber nicht, daß nur vier Zahlen in das Eingabefeld eingetragen werden 
dürfen. Der Wert einer einfachen Fließkommazahl kann in 4 Byte verschlüs¬ 
selt werden, so daß eine größere Felddimensionierung die Datei unnötig 
vergrößern würde. Einzelheiten hierzu werden Sie in unserer vierten Sitzung 
noch kennenlernen. 

Zu Beginn der Routine wird die Bildschirmmaske mit zugehörigen Kurz¬ 
informationen auf den Bildschirm gezeichnet. Anschließend können wir 
uns direkt mit der Eingabe befassen, die innerhalb einer WHILE-WEND- 
Schleife erfolgt. Wir wollen später zwischen den Datensätzen blättern 
können, wozu wir die Tastaturcodes zum Blättern bereits berücksichtigen, 
aber noch nicht weiter behandeln. Der Abbruch der Eingabe und damit 
auch der Schleife, soll über die dü]-Taste erfolgen. Zum Umschalten des 
aktiven Eingabefeldes soll die I Return] -Taste verwendet werden. 

Wie Sie im Listing sehen, haben wir eine Steuerungsvariable EditFeld% 
vor der Eingabeschleife eingeführt und mit dem Wert 0 initialisiert. Bei 
jeder XOP-Verknüpfung wird aus einer 0 eine 1 bzw. aus einer 1 eine 0. 
Das bedeutet in unserem Fall, daß der Wert von EditFeld% abwechselnd 
0 bzw. 1 beträgt. Damit ist ein einfaches Umschalten zwischen den 
Eingabefeldern möglich. 
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DatensatznuMner : 1 

Buchungsdatun : 11.05.1991 

Beschreibung : CKrafLfahrzeugsleuer 1 

Einnahrie/Ausgabe: [ 300.45 ] 



Eine Einahne uird nit. einen positiven [♦] und eine Ausgabe 
nit einen negativen Uorzeichen [-] in der ersten Spalte 
gekennzeichnet. Die Ueruendung des [♦] ist dabei uahlfrei. 


igiipagun« 


Datensätzen blättern 


Return: Buchung vornehnen ESC: Eingabeende 


Bild 2.3.3: 
Das Eingabe¬ 
fenster im 
Programm 
HAUSHALT 


Wie Sie sehen, sind vier Tasten in unserer Eingaberoutine von Bedeutung. 
Die [Esc] -, die [Return] -, die [Pqupl -und die I PgDn 1 -Taste. Mit Ausnahme 
der [Escape] -Taste sorgen die anderen Tasten für eine Änderung der 
Bildschirmmaske. Die Aktualisierung wird daher nur beim Betätigen einer 
dieser Tasten durch die Routine AktuolisiereMoske vorgenommen. Das 
Aussehen der definierten Eingabemaske ist in Bild 2.3.3 dargestellt. 


Workshop 

Checkliste 

1. Welche Anweisungen werden für ansprechende Bildschirmausgaben 
benötigt? 

2. Wie läßt sich auf einfachem Wege eine Eingabemaske realisieren? 

3. Warum sollte die Eingabe bei Randomdateien mit der Dateiverwaltung 
unmittelbar verknüpft werden? 

4. Auf welchem Wege können Laufzeitfehler abgefangen werden? 


Ideen für eigene Übungen 

• Erweitern Sie die Eingaberoutine so, daß bei alphanumerischen Eingaben 
beliebig viele Kommata und Vorzeichen eingebbar sind! 

• Erweitern Sie die Eingaberoutine so, daß für alphanumerische Zeichen eben¬ 
falls nur ganz bestimmte Zeichen zulässig sind! 
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2.4 Vierte Sitzung: Datenverwaltung mit 
Direktzugriffsdateien 

Die Themen dieser Sitzung: 

• Verschlüsselung numerischer Datentypen 

• Auslesen von Systemdatum und Systemzeit 

• Dateiverwaltung mit Direktzugriffsdateien 

• Die LOF-Funktion 

• Konvertierroutinen 


Information 

Haben wir in den ersten drei Sitzungen bereits einen Großteil unseres 
Programms abgehandelt, können wir uns in dieser Phase der Program¬ 
mierung gezielt mit einigen speziellen Themen der Dateiverwaltung be¬ 
fassen. Wir wollen unsere Eingaberoutine dahingehend erweitern, daß 
die Dateiverwaltung parallel zur Dateneingabe verläuft. Dazu müssen wir 
uns zunächst ein wenig genauer mit den Direktzugriffs- bzw. Random- 
Dateien befassen. 

Verschlüsselung numerischer Datentypen 

Die Datensätze einer Direktzugriffsdatei werden als Zeichenkette verwal¬ 
tet. Dies wird auch an der F/f[f>Anweisung, die wir in unserer letzten 
Sitzung bereits kennengelernt haben, deutlich. 

FIELD #Dateinummer, 10 AS BuchungsDatum$, 36 AS Beschreibung$,_ 

4 AS Betrag$ 

Sämtliche Datenfelder werden als Zeichenketten, erkennbar durch das 
Datentypkennzeichen $, definiert. Das heißt allerdings nicht, daß nume¬ 
rische Daten in Zeichenketten, wie z.B. " 123" abgespeichert werden 
müssen. Numerische Daten werden rechnerintern in ein Binärformat 
verschlüsselt, das nicht direkt lesbar ist, aber in Zeichenkettenform gespei¬ 
chert werden kann. Dazu sind Konvertier- bzw. Umsetzungsroutinen 
erforderlich, die wir später noch besprechen werden. Wenn man diese 
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Möglichkeit nutzt, fällt die Datensatzlänge geringer aus, als es bei Zahlen 
im Stringformat der Fall wäre. Wie viele Bytes bestimmte Datentypen für 
ihre Verschlüsselung benötigen, wird in Tabelle 2.4.1 aufgelistet. 


Ganzzahlen 

Integer 

2 Byte, z.B. a% 


Long-Integer 

4 Byte, z.B. a& 


Quad-Integer 

8 Byte, z.B. a&& 

Fließkomma 

einfachgenau 

4 Byte, z.B. a! 


doppeltgenau 

8 Byte, z.B. a# 


erweitert genau 

10 Byte, z.B. a## 

BCD-Zahlen 

Festzahl 

8 Byte, z.B. a@ 


Fließkommazahl 

10 Byte, z.B. a@@ 


Tabelle 2.4.1: Notwendige Anzahl von Bytes für Datentypen von Power Basic 


Da wir für den Buchungsbetrag den Datentyp einer einfachen Fließkom¬ 
mazahl gewählt haben, benötigen wir für die Zeichenkette Betrog$, die 
diesen Wert aufnehmen soll, insgesamt 4 Byte (4 AS Betrag$) in unserem 
Datensatz. 


Konvertierfunktionen 

In Power Basic sind drei wesentliche Gruppen von Konvertierroutinen 
enthalten. Die erste Gruppe erlaubt das Kopieren von numerischen 
Werten in bestimmte Variablentypen, die zweite und dritte Gruppe kommt 
in Verbindung mit den Direktzugriffsdateien zum Einsatz. Dabei erlaubt 
die zweite Gruppe das Umsetzen von Stringdaten aus Randomdateien in 
numerische Werte und die dritte Gruppe - dem entgegengesetzt - die 
Umwandlung von numerischen Werten aus einer Randomdatei in Zeichen¬ 
ketten. Die Funktionen sind in Tabelle 2.4.1 zusammengefaßt. 


Gruppe 1 

Gruppe 2 

Gruppe 3 

Datentyp 

CINT 

CVI 

MKI$ 

Integer 

CLNG 

CVL 

MKL$ 

Long-Integer 

CQUD 

CVQ 

MKQ$ 

Quad-Integer 

CSNG 

CVS 

MKS$ 

einfachgenau 

CDBL 

CVD 

MKD$ 

doppeltgenau 

CEXT 

CVE 

MKE$ 

erweitert genau 

CFIX 

CVF 

MKF$ 

BCD-Festzahl 

CBCD 

CVB 

MKB$ 

BCD-Fließkommazahl 


Tabelle 2.4.2: Hauptgruppen von Konvertierfunktionen in Power Basic 
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Auf die erste Gruppe kann in der Regel verzichtet werden, da Power Basic, 
wenn möglich, Typkonvertierungen automatisch durchführt. Für unser 
Programm HAUSHALT benötigen wir die zweite, um Daten in den 
sogenannten Dateipuffer zu kopieren, und die dritte Gruppe, um Daten 
aus dem Dateipuffer zu lesen. 

Mit der ASCfj-Funktion kann das Zeichen eines beliebigen ASCII-Codes und 
mit der CH/?$(j-Funktion der ASCII-Code eines beliebigen Zeichens ermittelt 
werden (vgl. ASCII-Tabelle im Anhang). Mit den Funktionen VAL und STR$[) 
können Sie Zeichenketten in numerische Äquivalente konvertieren und um¬ 
gekehrt. 


Dateiverwaltung mit Direktzugriffsdateien 

Für die Verwaltung von Daten in einer Randomdatei sind neben den 
Befehlen zum Öffnen und Schließen der Datei, die wir bereits besprochen 
haben, Befehle zum Lesen und Schreiben von Daten in diese Datei 
notwendig. Da die Werte vor den eigentlichen Schreib- und Lesevor¬ 
gängen in einen Zwischenspeicher für die zuvor definierten Feldvariablen 
geschrieben werden (Dateipuffer), sind hierzu weitere Anweisungen 
erforderlich, die wir an dieser Stelle kurz erläutern wollen. 


Beispiel SCHREIBEN: 


OPEN "TEST.DAT" FOR RANDOM AS #1 LEN=10 
FIELD #1, 8 AS Name$, 2 AS Alter$ 
VorName$ = "EGON" 

Alter% = 30 

LSET Name$=VorName$ 

LSET Alter$=MKI$(Alter%) 

PUT #1,1 
CLOSE #1 


'Datei öffnen 
'Datenfelddefinition 
'Werte für Datensatz 
'initialisieren 

'Werte linksbündig in 
'Dateipuffer schreiben 

'Datensatz in Datei schreiben 
'Datei schließen 


Beispiel LESEN: 

'Datei öffnen 
'Datenfelddefinition 
'Datensatz aus Datei lesen 
'Werte aus Dateipuffer zuweisen 

'Datei schließen 


OPEN "TEST.DAT" FOR RANDOM AS #1 LEN=10 
FIELD #1, 8 AS Name$, 2 AS Alter$ 

GET #1,1 
Vorname$=Name$ 

Alter%=CVI(Alter$) 

CLOSE #1 


Wie Sie an unseren Beispielen erkennen können, wird über LSET der Wert 
in den Dateipuffer linksbündig geschrieben, d.h., der Wert wird in das 
Datenfeld von links beginnend eingetragen. Alternativ wäre über die 
Anweisung RSET auch ein rechtsbündiges Schreiben möglich. Sowohl PUT 
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und GET benötigen die Dateinummer und eine bestimmte Datensatznum¬ 
mer, um Daten schreiben und lesen zu können. In unserem Beispiel 
arbeiten wir jeweils gezielt mit dem ersten Datensatz. 

Werden numerische Daten in den Dateipuffer geschrieben, sollte die 
Konvertierung in eine Zeichenkette erfolgen. In unserem Beipiel ver¬ 
wenden wir für die Ganzzahl A\ter% die Funktion M/<7$. Beim Lesen aus 
der Datei konvertieren wir die Zeichenkette Alter$ mit der Funktion CVI 
in eine Ganzzahl zurück. Mit den in der Tabelle 2.4.2 gemachten 
Angaben können Sie dementsprechend jetzt selbst Variablen eines belie¬ 
bigen Datentyps in einer Direktzugriffsdatei verwalten. Weitere Hinweise 
können Sie unserem Praxisteil entnehmen. 

Die LOF-Funktion 

Mit Hilfe der LOF-Funktion läßt sich die Gesamtdatensatzanzahl einer 
Direktzugriffsdatei ermitteln. Zwar liefert LOF nur die Dateilänge in Bytes 
zurück, aber die Datensatzlänge ist uns ja ebenfalls bekannt. Schließlich 
haben wir diese in der OPEN-Anweisung selbst festgelegt. Mit Hilfe der 
Integer-Division können wir damit die Datensatzanzahl nach der folgen¬ 
den Formel errechnen: 

GesamtDatenSaetze& = LOF(Dateinummer) \DatenSatzlaenge 

Auslesen von Systemdatum und Systemzeit 

Mit Hilfe der in Power Basic integrierten Funktionen DATE$ und TIME$ ist 
es möglich, das Systemdatum bzw. die Systemzeit auszulesen. Wir wollen 
in unserem Programm HAUSHALT dieses Datum als Buchungsdatum 
verwenden. Dabei ist allerdings zu berücksichtigen, daß beide Funktionen 
die amerikanische Schreibweise zurückliefern. Deswegen werden wir im 
Praxisteil für die Funktion DATE$ eine Routine entwickeln, um das eng¬ 
lische in das deutsche Datumsformat zu übersetzen. 

Rückgabe DATES: MM-TT-JJJJ Bsp.: 11-05-1991 

MM : Monat 
TT : Tag 
JJJJ: Jahr 

Rückgabe TIMES: HH.MM.SS Bsp.: 12.30.24 

HH : Stunde 
MM : Minute 
SS : Sekunde 
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Praxis 

Da unser Hauptprogramm für diese Sitzung keiner Änderung bedarf, 
wollen wir zunächst eine Funktion anführen, die das amerikanische 
Systemdatum in das deutsche Datumsformat übersetzt (Listing 2.4.1). 
Diese Funktion geben wir am Ende unserer Datei HAUSHALT.BAS in den 
Editor ein. Sie ermöglicht uns, auf eine Eingabe des Buchungsdatums in 
unserem Programm zu verzichten. 

FUNCTION GermanDate$ 

GermanDate$=MID$(DateS,4,2) + "." + LEFT$(Date$,2) + "." +_ 

RIGHT$(Date$,4) 

END FUNCTION 

Listing 2.4. 1: Funktion zum Ermitteln des Systemdatums im deutschen Datumsformat 


Mit den Stringfunktionen MID$, LEFT$ und RIGHT$ sind umfangreiche 
Manipulationen von Zeichenketten möglich. Diese nutzen wir, indem wir 
das amerikanische Systemdatum (Format: MM-TT-JJJJ) in das deutsche 
Format (Format: TT.MMJJJJ) umformatieren. 

Die Dateiverwaltung 

Nun wollen wir uns aber dem Hauptthema dieser Sitzung, der Dateiver¬ 
waltung, widmen. Dazu erweitern wir die Routine DotenEingobe so, wie 
in Listing 2.4.2 dargestellt. Die gemachten Änderungen sind durch 
Fettdruck hervorgehoben. 

SUB DatenEingabe(DateiNummer, vfarbe%, hfarbe%) 

FIELD #Dateinummer, 10 AS BuchungsDatum$, 36 AS Beschreibung$,_ 

4 AS Betrag$ 

SatzAnzahlfi = LOF(DateiNummer) \ 50 

CALL Hintergrund(vfarbe%, hfarbe%) 

CALL Fenster(8, 10, 60, 8, vfarbe%, hfarbe%) 

CALL InfoZeile("PgUp/PgDn: Datensätzen blättern Return: Buchung"+_ 

" vornehmen ESC: Eingabeende", 25, vfarbe%, hfarbe%) 
LOCATE 9, 12 'Eingabemaske ausgeben 

PRINT "Datensatznummer : 

LOCATE 11, 12 

PRINT "Buchungsdatum : 

LOCATE 13, 12 

PRINT "Beschreibung : ["+SPACES(36)+"]"; 

LOCATE 15, 12 

PRINT "Einnahme/Ausgabe: ["+SPACES(15)+”]"; 

CALL Fenster(19, 10, 60, 3, vfarbe%, hfarbe%) 

LOCATE 20, 12 

PRINT "Eine Einahme wird mit einem positivem [+] und eine Ausgabe" 

LOCATE 21, 12 

l^RINT "mit einem negativen Vorzeichen [-] in der ersten Spalte" 
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LOCATE 22, 12, 0 

PRINT "gekennzeichnet. Die Verwendung des [+] ist dabei wahlfrei." 

SatzNummerfi = SatzAnzahlfi 
IF SatzNummer&>0 THEN 

GET #DateiNummer, SatzNummerfi 
Datum$ = BuchungsDatum$ 

Kommentar$ = Beschreibung$ 

Ein$ = STR$(CVS(Betrag$)) 

ELSE 

SatzNummerfi = 1 
Datum$ = GermanDate$ 

END IF 

EditFeld% = 0 

CALL AktualisiereMaske (SatzNummerS, Datum$, Kommentar$, Ein$, vfarbe%, 
hfarbe%) 

WHILE a$OCHR$ (27) 

a$ = INKEY$ 'ESC Eingabeende 

b$=RIGHT$(a$, 1) 

IF b$=CHR$(81) THEN 'PgUp (max. 500 000 Einträge) 

IF SatzNummerS < 500000 AND VAL(Ein$)<>0 THEN 
LSET BuchungsDatum$ = Datum$ 

LSET Beschreibung$ = Kommentar$ 

LSET Betrag$ = MKS$(VAL(Ein$)) 

PUT #Dateinummer, SatzNuiraner& 

SatzNummer&=SatzNummer& + 1 
IF SatzNummer&>SatzAnzahl& THEN 
Datum$ = GermanDate$ 

Kommentar$ = "" 

Ein$ = "" 

SatzAnzahlfi = SatzAnzahl& + 1 
ELSE 

GET #Dateinummer, SatzNummerfi 
Datum$ = BuchungsDatum$ 

Kommentar$ = Beschreibung$ 

Ein$ = STR$(CVS(Betrag$)) 

END IF 
END IF 

ELSEIF b$=CHR$(73) THEN 'PgDn 

IF SatzNummer&>l THEN 

LSET BuchungsDatum$ = Datum$ 

LSET Beschreibung$ = Kommentar$ 

LSET Betrag$ = MKS$(VAL(Ein$)) 

PUT #Dateinummer, SatzN\ommer& 

SatzNummer&=SatzNummer& - 1 
GET #DateiNummer, SatzNummerfi 
Datum$ = BuchungsDatum$ 

Kommentar$ = Beschreibung$ 

Ein$ = STR$(CVS(Betrag$)) 

END IF 

ELSEIF a$=CHR$(13) THEN 

EditFeld% = EditFeld% XOR 1 'editiere 1. bzw. 2.Feld 
IF EditFeld%=l THEN 

Kommentar$ = RTRIM$(Kommentar$) 
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CALL EingabeKommentar$ / 36, 13, 31, vfarbe%, hfarbe%) 
ELSE 

Ein$ = RTRIM?(Ein?) 

CALL Eingabe("R|", Ein?, 15, 15, 31, vfarbe%, hfarbe%) 

END IF 
END IF 

IF b$=CHR$(73) OR b$=CHR$(81) OR a$=CHR$(13) THEN 

CALL AktualisiereMaske (SatzNummer&, Datum$, Kommentar$, Ein$,_ 
vfarbe%, hfarbe%) 

END IF 
WEND 

CALL HinterGrund(vfarbe%, hfarbe%) 

END SUB 

Listing 2.4.2: Erweiterung der Routine DatenEingabe 


Zu Beginn der Routine wird über die Anweisung LOF(DoteiNummer)\50 
die Gesamtzahl der vorhandenen Datensätze in unserer Arbeitsdatei 
ermittelt. Diese verwenden wir, um später den letzten Datensatz für unsere 
Eingabemaske zu aktivieren (SatzNummer&=SatzAnzahl&). Da die LOF- 
Funktion lediglich die Gesamtlänge einer Datei in Bytes zurückgibt, wir 
die Datensatzlänge jedoch kennen, die wir ja schließlich selbst mit 
50 Zeichen in der F/EID-Anweisung definiert haben, können wir über die 
Integer-Division (Ergebnis ist eine Ganzzahl) auch die Anzahl der Daten¬ 
sätze errechnen. 


Bevor wir die WHILE-WEND-Sch\e\$e ausführen, überprüfen wir zunächst 
für die Eingangsmaske, ob bereits Daten in unserer Datei vorhanden sind. 
Ist dies der Fall (dann SatzNummer&>0) , so werden die Daten aus der 
Datei gelesen, ansonsten werden lediglich das Buchungsdatum und die 
erste Satznummer initialisiert (SatzNummer&=l : Dotum$=GermonDote$). 

Zwei weitere Funktionen wollen wir in unserem Programm einbauen. 
Zunächst soll über iPgUpl in der Datei weitergeblättert werden. Die hierzu 
erforderlichen Anweisungen sind nachfolgend noch einmal abgedruckt. 


IF b$=CHR$(81) THEN 'PgUp (max. 500 000 Einträge) 

'Buchungssumme ungleich Null gefordert! 

IF SatzNummerS < 500000 AND VAL(Ein?)<>0 THEN 


LSET BuchungsDatum$ = Datum$ 
LSET Beschreibung$ = Kommentar? 
LSET Betrag? = MKS?(VAL(Ein?)) 
PUT #Dateinummer, SatzNummerS 
SatzNummer&=SatzNummer& + 1 
IF SatzNummer&>SatzAnzahl& THEN 
Datum? = GermanDate? 
Kommentar? = "" 

Ein? = "" 


'Werte in Dateipuffer 


'Datensatz schreiben 
'nächster Datensatz 
'neuer Datensatz 
'Vorgabewerte initialisieren 
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SatzAnzahlS = SatzAnzahl& + 1 'Satzanzahl aktualisieren 
ELSE 'Dateiwerte einiesen 

GET #Dateinummer, SatzNummerS 
Datum$ = BuchungsDatum$ 

Kommentar$ = Beschreibung$ 

Ein$ = STR$(CVS(Betrag$)) 

END IF 
END IF 
ELSEIF... 

Wir wollen in jeder Datei bis zu 500 000 Datensätze verwalten können. 
Aus diesem Grund ist es notwendig, für die Variable SatzAnzahl& den 
Datentyp Long-Integer zu wählen (Typkennzeichen: &). Um die Erzeugung 
eines neuen Datensatzes bei jedem Betätigen der IPgUp I -Taste zu vermei¬ 
den, kontrollieren wir zunächst immer, ob überhaupt ein Buchungsbetrag 
eingegeben worden ist. Sollte das nicht der Fall sein, ist das Speichern 
der Daten auch nicht sinnvoll. Außerdem müssen wir bei jedem Blättern 
kontrollieren, obein neuer Datensatz angelegt wird (SatzNummer&>Satz- 
Anzahl), damit die Maskenwerte, wie bereits zu Beginn, für den neuen 
Datensatz korrekt initialisiert werden können. 

a Beachten Sie, daß nach dem Speichern eines neuen Datensatzes (dann 
SatzNummer&>SatzAnzahl&) durch die Anweisung SatzAnzahl&=SatzAn- 
zahl&+ 7, die Gesamtanzahl der Datensätze aktualisiert wird. Die am Routi¬ 
nenanfang ermittelte Datensatzanzahl wird nämlich in diesem Fall durch das 
Weiterblättern erhöht. Die korrekte SatzAnzahl& benötigen wir intern als 
Kontrollvariable für die Eingabemaske, so daß eine korrekte Kenntnis der 
Datensatzanzahl unbedingt erforderlich ist. 

Das Zurückblättern in der Datei verläuft ähnlich wie das Weiterblättern. 
Dabei brauchen wir lediglich darauf zu achten, daß nicht vor den ersten 
Datensatz geblättert werden darf. Die Variable SatzNummer& muß vor 
dem Blättern also einen Wert größer 1 haben, da dieser innerhalb dieses 
Blocks um 1 abgemindert wird und nicht zu 0 werden darf! 

Da wir für den Buchungsbetrag eine einfachgenaue Fließkommazahl 
gewählt haben, benötigen wir für die Verwaltung der Daten in der 
Direktzugriffsdatei die Konvertierroutinen MKS$ und CVS (siehe Tabelle 
2.4.2). Da sämtliche Eingaben als Zeichenketten erfolgen (Routine Einga¬ 
be), setzen wir zudem die Funktion STR$ ein, um den aus dem Dateipuffer 
ermittelten numerischen Wert als Zeichenkette an unsere Eingaberoutine 
übergeben zu können. 

Nachdem Sie die Routine DatenEingabe komplett im Editor überarbeitet 
haben, können Sie das Programm ausführen und testen ( |Ait| + fF9~1 fFöl). 
Sie werden sehen, daß Eingaben beim Blättern nicht verlorengehen, 
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sondern wieder in der Bildschirmmaske erscheinen. Dafür ist unsere im 
Hintergrund arbeitende Dateiverwaltung verantwortlich (Bild 2.4.1). Sie 
sehen also, daß die Realisierung einer Dateiverwaltung gar nicht so 
schwer ist. 

Mit den Grundlagen, die Sie bislang erlernt haben, sollten Sie nunmehr 
in der Lage sein, eigene Dateiverwaltungen (z.B. eine Adreßverwaltung) 
zu entwickeln. In unserem Programm haben wir damit die Entwicklung 
der Programmoberfläche und der Dateiverwaltung abgeschlossen. Damit 
können wir uns nun mit der Datenauswertung befassen, bevor wir uns der 
weiteren Programmoptimierung zuwenden. 



Bild 2.4.1: 
Eingaberoutine 
mit aktiviertem 
Eingabefeld 


So, wie wir unsere Routine bislang angelegt haben, können die Daten 
von beliebigen Zeiträumen eingegeben werden. Bei der Auswertung 
werden wir uns allerdings immer auf ein spezielles Buchungsjahr bezie¬ 
hen. Dieses beginnt jeweils am 1. Januar und endet am 31. Dezember. 

In der derzeitigen Fassung der Routine wird das Buchungsdatum automa¬ 
tisch gesetzt. Wenn Sie ein spezielles Datum für den Buchungssatz 
benötigen, sollten Sie es in das Kommentarfeld eintragen. Bedenken Sie 
aber, daß Sie aufgrund der Einschränkungen unserer Eingaberoutine 
höchstens einen Dezimalpunkt eingeben können. Ein Datum in der Form 
»1 1.05.1991« sollten Sie z.B. in der Form »1 1/5/91« eingeben. 

Wenn die Eingabemaske nach dem Aufruf des Menüpunktes Dateneinga¬ 
be auf dem Bildschirm erscheint, ist zunächst noch kein spezielles Einga¬ 
befeld aktiviert. Durch [Return] können Sie eine Eingabe für den Kom¬ 
mentar vornehmen. Beachten Sie, daß das aktiv geschaltete Editierfeld 
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farblich hervorgehoben wird. Durch erneutes Drücken von (Return) 
verlassen Sie das Eingabefeld wieder. Wiederholen Sie diesen Vorgang, 
wird das nächste Mal das Eingabefeld für den Buchungsbetrag aktiviert. 
Sie können diese Feldumschaltung optimieren, indem Sie die Cursorsteue¬ 
rung so berücksichtigen, daß damit eine unmittelbare Feldumschaltung 
möglich wird. 


Workshop 

Checkliste 

1. Mit welchen Funktionen kann das Systemdatum bzw. die Systemzeit aus¬ 
gelesen werden? 

2. Wie werden numerische Daten rechnerintern verschlüsselt und wieviel Spei¬ 
cher belegen die jeweiligen Datentypen dabei? 

3. Erläutern Sie die Möglichkeiten der Konvertierroutinen von Power Basic! 

4. Erläutern Sie die wesentlichen Befehle, die zur Verwaltung von Randomdateien 
notwendig sind! 

5. Welche Möglichkeiten bietet Ihnen die LOF- Funktion? 

Ideen für eigene Übungen 

• Erweitern Sie die Routine zur Dateneingabe so, daß Sie mit der Funktions¬ 
taste ED den ersten Datensatz (Tastaturcode CHR$(65)) und mit der Funk¬ 
tionstaste (SD (Tastaturcode CHR$(66)) den letzten laden. 

• Erweitern Sie den Aufbau des Hauptbildschirms so, daß das aktuelle Datum 
und die aktuelle Zeit mit auf dem Bildschirm ausgegeben wird. Verwenden Sie 
dazu das jeweilige deutsche Format! 
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2,5 Fünfte Sitzung: Datenauswertung 

Die Themen dieser Sitzung: 


• Mathematische Funktionen 

• Stringfunktionen 

• Dateiauswertung 


Information 

Die Buchungssätze, die wir in unsere Arbeitsdatei geschrieben haben, 
müssen für die Berechnung des Einnahmen-/Ausgabenüberschusses mit¬ 
einander verknüpft werden. Dies wollen wir in dieser Sitzung realisieren. 
Dazu werden wir neben internen Power-Basic-Funktionen noch einmal auf 
die Dateiverwaltung und einfache Auswertungsmöglichkeiten zu sprechen 
kommen. 

Bei der Ausgabe beschränken wir uns zunächst auf eine Tabellenausgabe 
auf dem Bildschirm, wobei wir allerdings bereits berücksichtigen wollen, 
daß die eigentliche Auswertungsroutine auch für die Druckerausgabe 
bzw. Grafikausgabe auf dem Bildschirm benötigt wird. Die Zahlenwerte 
sollen dabei auf zwei Nachkommastellen gerundet werden. Da keine 
brauchbare Rundungsfunktion in Power Basic implementiert ist, werden 
wir uns hierzu eine eigene Funktion programmieren. 

Mathematische Funktionen 

Power Basic verfügt über die wichtigsten Grundfunktionen, die für mathe¬ 
matische Berechnungen benötigt werden. Dadurch können in Verbindung 
mit den mathematischen Operatoren, die wir bereits kennengelernt ha¬ 
ben, auch komplizierte mathematische Aufgabenstellungen gelöst wer¬ 
den. Eine Zusammenstellung der Funktionen findet sich in Tabelle 2.5.1. 
Dabei ist zu beachten, daß sämtliche Winkelfunktionen (ATN, COS, SIN , 
TAN) das übergebene Argument im Bogenmaß (Rad) erwarten. Diese 
Umrechnung werden wir im Grafikkapitel genauer behandeln. 
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ABS 

Absolutbetrag eines Argumentes 

ATN 

Arcustangens eines Argumentes 

cos 

Cosinus eines Argumentes 

EXP 

e hoch Argument 

EXP2 

2 hoch Argument 

EXP 10 

10 hoch Argument 

LOG 

natürlicher Logarithmus (Basis e) 

LOG2 

Logarithmus zur Basis 2 

LOG 10 

Logarithmus zur Basis 10 

SGN 

Vorzeichen eines Argumentes 

SIN 

Sinus eines Argumentes 

SQR 

Quadratwurzel eines Elementes 

TAN 

Tangens eines Elementes 


Tabelle 2.5.1: Liste der mathematischen Funktionen 


Um den Einsatz der mathematischen Funktionen zu veranschaulichen, 
wollen wir an dieser Stelle den Aufruf allgemein und an einigen kleinen 
Beispielen anführen. 

Allgemein: 

Ergebnis = mathematische Funktion (Argument) 

Beispiele: 

y% = ABS(-3) 
y! = SIN(0.35) 
y# = COS(0.253) 

Mit Hilfe der vorhandenen Funktionen können alle weiteren mathemati¬ 
schen Funktionen formuliert werden. Benötigen wir zum Beispiel die 
Funktion für den Sinushyperbolicus, so kann recht schnell durch einen Blick 
in eine Formelsammlung eine Umrechnungsmöglichkeit gefunden werden, 
die in diesem Fall SINH = (EXP(arg) - EXP(-org) / 2 lautet. Damit können 
wir recht schnell eine Funktion programmieren. 

FUNCTION SINH!(X!) 

SINH! = (EXP(X!)-EXP(-X!))/2 
END FUNCTION 

Unser Beispiel arbeitet in diesem Fall mit einfachgenauen Fließkomma¬ 
werten. Diese benutzerdefinierte, mathematische Funktion können wir nun 
wie eine interne Basic-Funktion nutzen. Um die neue Anweisung in unseren 
Programmen zugänglich zu machen, können wir sie entweder in den 
Quelltext unseres Programms schreiben, sie durch einen $/NC/. L/DF-Befehl 
in unser Hauptprogramm einbinden lassen (falls die Funktion in einer 
gesonderten Quelldatei vorliegt) oder wir integrieren sie in eine Unit und 
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binden diese in unser Hauptprogramm mit $LINKe\n. Dann müssen wir 
am Programmanfang allerdings die DECLARE-Anweisung DECLARE 
FUNCTION SINHI(SINGLE) einfügen. 

Stringfunktionen 

Im Vergleich zu anderen Basic-Dialekten bietet Power Basic nicht nur einen 
recht großen Umfang an mathematischen Funktionen, sondern auch 
umfangreiche Stringfunktionen an. Die Zusammenstellung ist in Tabelle 
2.5.2 enthalten. 


EXTRACT$ 

Teilstring abspalten, der auf spezielle Zeichen hinweist 

INSTR 

liefert die Startposition eines Suchstrings in einem String 

LCASE$ 

Umwandlung Groß- in Kleinschrift 

LEFT$ 

liefert linke Teilzeichenkette zurück 

LTRIM$ 

Herausfiltern von Zeichen aus einer Zeichenkette 
(von links) 

MID$ 

mittleren Teil eines Strings ermitteln 

REMOVE$ 

Zeichen aus einem String entfernen 

REPEAT$ 

gibt String zurück, der einen String n-mal beinhaltet 

REPLACE 

Teile eines Strings ersetzen 

RIGHT$ 

liefert rechte Teilzeichenkette zurück 

RTRIM$ 

Herausfiltern von Zeichen aus einem String (von rechts) 

SPACES 

liefert String mit n Leerzeichen zurück 

STRINGS 

String erzeugen, der ein bestimmtes Zeichen n-mal 
enthält 

TALLY 

Anzahl von Zeichen und Strings im Gesamtstring 
ermitteln 

UCASES 

Umwandlung Klein- in Großschrift 

USINGS 

Zeichenkette formatieren 

VERIFY 

spezieller Stringvergleich 


Tabelle 2.5.2: Stringfunktionen von Power Basic 
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Die wichtigsten Funktionen A /\ID$, LEFT$ und RIGHT$ haben wir bereits 
für die Routine GermanDate$ genutzt. Anders als bei anderen Basic-Dia- 
lekten werden bei den Funktionen UCASE$ und LCASE$ auch deutsche 
Umlaute berücksichtigt. 

Power Basic arbeitet gegenüber anderen Programmiersprachen, wie z.B. 
Pascal, mit dynamischen Zeichenketten. Zeichenketten können also varia¬ 
bel in ihrer Länge sein und aus 0 bis maximal 32750 Zeichen bestehen. 

Beachten Sie, daß über das Power-Basic-Menü bzw. über den Kompilier- 
Befehl $STRING eine Reduzierung der maximalen Stringlänge auf bis zu 
1006 Zeichen möglich ist. 

Neben den Stringfunktionen, die in der Tabelle 2.5.2 aufgeführt sind, 
spielt die Verkettung von Zeichenketten in der Programmierung eine 
wesentliche Rolle. Diese erfolgt über den Operator +. Um z.B. den 
Vornamen "Harry" mit dem Nachnamen "Meier 1 ' in einem einzelnen 
String zu vereinen, könnten Sie folgende Anweisung verwenden: 

Name$ = "Harry" + " " + "Meier" 

Dabei ist es natürlich sinnvoll, die beiden Teilnamen durch ein Leerzeichen 
zu trennen. Dieselbe Anweisung könnte aber auch durch die folgenden 
Befehle realisiert werden: 

Name$ = "Harry" + SPACE$(1) + "Meier" 

Name$ = "Harry" + CHR$(32) + "Meier" 

Name$ = "Harry" + STRINGS(1," ") + "Meier" 

An diesem Beispiel können Sie sehen, daß es für eine Formulierung in der 
Regel mehrere Lösungsmöglichkeiten gibt. Sie werden sich sicherlich 
denken können, wenn bei einem einzelnen Befehl bereits mehrere Formu¬ 
lierungen möglich sind, daß bei größeren Programmen eine unterschied¬ 
liche Realisierung mit dem gleichen Ergebnis erst recht wahrscheinlich ist. 
Es ist also durchaus möglich, daß unterschiedliche Programmierer für ein- 
und dasselbe Problem unterschiedliche Lösungswege einschlagen, die 
sich im Endeffekt nicht im Ergebnis, sondern z.B. in der Ausführungsge¬ 
schwindigkeit unterscheiden. Die Anwendung der Stringfunktionen haben 
Sie bereits in den ersten Kapiteln ausgiebig eingesetzt. Auch bei der 
Datenauswertung können wir darauf nicht verzichten. 
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Datenauswertung 

Um Daten aus einer Datei auswerten zu können, müssen wir natürlich 
genau wissen, um welchen Dateityp es sich handelt und welche Daten¬ 
struktur vorhanden ist. In der Regel ist es dann ausreichend, die Daten zu 
lesen und die Ergebnisse im Speicher zu halten, um sie entweder auf dem 
Bildschirm, dem Drucker oder in einer Bildschirmgrafik auszugeben. Die 
einfachste Realisierung ergibt sich, wenn man die Datei vom Dateianfang 
bis zum Dateiende in einer Schleife liest und die benötigten Werte 
unmittelbar verarbeitet. Auf das Schreiben der Ergebnisse in eine spezielle 
Ergebnisdatei wollen wir an dieser Stelle verzichten. 

Da wir in unserem Programm mit einer Direktzugriffsdatei arbeiten, ist es 
sinnvoll, folgende Schleife für die Auswertung einzusetzen: 

Auswertung einer Direktzugriffsdatei: 

FOR Datensatz&=l TO LOF(DateiNummer) \SatzLaenge% 

GET #DateiNummer, Datensatz 
'Anweisungen zur Auswertung 
NEXT Datensatz& 

Auswertung einer sequentiellen Datei: 

WHILE NOT EOF(DateiNummer) 

LINE INPUT #DateiNummer, Text$ 

'Anweisungen zur Auswertung 
WEND 

Bei sequentiellen Dateien ist das Dateiende durch eine End-Of-File-Marke 
gekennzeichnet, die durch die fOF-Funktion abgefragt werden kann. 
Diese Funktion ermöglicht genau bis zum Dateiende zu lesen. Erinnern 
Sie sich daran, daß jeder »Datensatz« in einer sequentiellen Datei eine 
unterschiedliche Länge haben kann und sich somit eine Ermittlung der 
Datensatzanzahl innerhalb dieser Datei nicht wie bei der Randomdatei 
realisieren läßt. Ein Beispiel für die Auswertung einer sequentiellen Datei 
werden wir in unserer neunten Sitzung besprechen. 


Praxis 

Unsere Arbeitsdatei ist eine Direktzugriffsdatei mit bereits festgelegten 
Datenfeldern. Da unsere Datenauswertung überdas Hauptauswahlmenü 
unseres Programms HAUSHALT aufrufbar sein soll, müssen wir dafür 
sorgen, daß bereits eine Arbeitsdatei gewählt ist. Dazu können wir wieder 
unsere Routine KeineDateiAktiv verwenden, die wir im Hauptprogramm 
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(Listing 2.5.1) in der SELECT-CASE-Auswah\ für die Datenauswertung 
integrieren. 

: 'unverändertes Hauptprogramm 

CASE 3 'Datenauswertung 

IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 'erster Parameter Mode% 

CALL DatenAuswertung(1, DNr, vfarbe%, hfarbe%) 

END IF 

CASE 4 'Ergebnisse ausdrucken 

: 'unverändertes Hauptprogramm 

Listing 2.5.1: Angepaßtes Hauptprogramm für die Datenauswertung auf dem Bildschirm 

Unsere Routine DatenAuswertung soll nicht nur die Einnahmen-/Aus- 
gabenüberschußrechnung durchführen, sie soll auch über den Parameter 
Mode% den Aufruf der Drucker- bzw. der Grafikroutinen übernehmen. 
Den Parameter werden wir in dieser Sitzung noch nicht nutzen, er erhält 
erst im weiteren Verlauf unseres Tutoriums eine Bedeutung. Sie sollten 
allerdings schon berücksichtigen, daß Mode%=l für die Bildschirmaus¬ 
gabe, Mode%=2 für die Druckerausgabe und sonstige Werte für die 
Grafikausgabe reserviert werden sollen. Das erklärt auch den Aufruf der 
Routine DatenAuswertung in unserem Hauptprogramm. Nachdem Sie das 
Hauptprogramm erweitert haben, können die Unterprogramme und Funk¬ 
tionen für die Datenauswertung in unserem Hauptprogramm am Datei¬ 
ende formuliert werden. Dazu bewegen Sie den Textcursor im Editor auf 
das Textende der Datei HAUSHALT.BAS und geben die Funktion Runden! 
und das Unterprogramm DatenAuswertung e in. 

Die Datenauswertung 

Zunächst müssen wir die Ergebnisse festlegen, die unsere Routine ermitteln 
soll. Wir wollen die Gesamteinnahmen und die Gesamtausgaben für ein 
bestimmtes Buchungsjahr ermitteln. Daraus können wir direkt den Gesamt¬ 
saldo, also die Differenz zwischen Einnahmen und Ausgaben, errechnen. 
Außerdem wollen wir für jeden Monat eines Jahres einen Gesamtsaldo 
ermitteln, um Schwankungen innerhalb des Jahres erkennbar zu machen. 
So kann im Monat Januar durchaus eine negative Bilanz und im Monat 
Februar eine positive Bilanz vorliegen. Diese Ergebnisse wollen wir später 
auch grafisch veranschaulichen. Unsere Werte sollen auf zwei Zahlen 
nach dem Komma gerundet werden. Daher werden wir zunächst eine 
Funktion schreiben, die für uns das Runden übernimmt (Listing 2.5.2). 
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Alternativ könnten wir an dieser Stelle auch die interne Power-Basic-Funk- 
tion ROUND e insetzen. 

FUNCTION Runden!(Zahl!) 

Runden! = INT(Zahl! * 100 + 0.5) / 100 
END FUNCTION 

Listing 2.5.2: Die Funktion Runden! 

Wie Sie sehen, beschränken wir uns wieder auf Fließkommazahlen mit 
einfacher Genauigkeit. Den Datentyp also, der auch in unserer Dateiver¬ 
waltung verwendet wird, um die Buchungsbeträge zu speichern. Die hier 
verwendete Power-Basic-Funktion INT gehört zu den Konvertierfunktionen 
und wandelt den Ausdruck (Zahl!* 100+0.5) in eine Ganzzahl (Integer) 
um. 

Nun wollen wir aber das Unterprogramm für die Datenauswertung mit 
Ausgabe der Ergebnisse in einem Bildschirmfenster vorstellen. Die Routi¬ 
nen für Drucker- und Grafikausgabe werden später an geeigneten Stellen 
integriert. 

SUB DatenAuswertung(Mode%, Dateinummer, vfarbe%, hfarbe%) 

'Mode% reserviert für spätere Fassung 

FIELD #Dateinummer, 10 AS BuchungsDatum$, 36 AS Beschreibung$,_ 

4 AS Betrag$ 

CALL Hintergrund(vfarbe%, hfarbe%) 

CALL Fenster(10, 16, 46, 1, vfarbe%, hfarbe%) 

Jahr$ = RTRIM$(RIGHTS(Date$, 4)) 

CALL Eingabe ("I| Bildschirmauswertung für welches Jahr: ", Jahr$,_ 

4, 11, 18, vfarbe%, hfarbe%) 

IF LEN(Jahr$)<> 4 THEN EXIT SUB 
LOCATE ,,0 

FOR SatzNummer&=l TO LOF(Dateinummer)\50 
GET #Dateinummer, SatzNummerS 
Datum$ = BuchungsDatum$ 

Kommentars = BeschreibungS 
Betrag! = CVS(BetragS) 

IF RIGHTS(Datum?, 4) = JahrS THEN 

IF Betrag! < 0 THEN 'Gesamtsummen 

Ausgabe! = Ausgabe! + ABS(Betrag!) 

ELSEIF Betrag! > 0 THEN 

Einnahme! = Einnahme! + Betrag! 

END IF 

SELECT CASE MIDS(DatumS, 4, 2) 'monatlicher Saldo 

CASE "01" 'Januar 

Januar! = Januar! + Betrag! 

CASE "02" 'Februar 

Februar! = Februar! + Betrag! 

CASE "03" 'März 

Maerz! = Maerz! + Betrag! 

CASE "04" 'April 


95 



Tutorium 


April! = April! + Betrag! 

CASE "05'' 'Mai 

Mai! = Mai! + Betrag! 

CASE "06" 'Juni 

Juni! = Juni! + Betrag! 

CASE "07" 'Juli 

Juli! = Juli! + Betrag! 

CASE "08" 'August 

August! = August! + Betrag! 

CASE "09" 'September 

September! = September! + Betrag! 

CASE "10" 'Oktober 

Oktober! = Oktober! + Betrag! 

CASE "11" 'November 

November! = November! + Betrag! 

CASE "12" 'Dezember 

Dezember! = Dezember! + Betrag! 

CASE ELSE 
END SELECT 
END IF 


NEXT SatzNummerS 

Gesamt! = Einnahme! - Ausgabe! 

CALL Fenster (5, 5, 70, 15, vfarbe%, hfarbe%) 


6 , 

7, 

8 , 

9, 


Gesamt 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 10, 
LOCATE 12, 
LOCATE 12,45: 
LOCATE 13, 8: 
LOCATE 13,45: 


Einnahme! - Ausgabe! 


8: PRINT "Auswertungsjahr. 

8: PRINT "Summe aller Einnahmen. 
8: PRINT "Summe aller Ausgaben.. 

8: PRINT "Gesamtsaldo. 

5: PRINT + STRING$ (70, 


8 : 


PRINT "Saldo Januar... 

PRINT "Juli. 

PRINT " Februar.. 

PRINT "August. 

März. 


LOCATE 14, 8: PRINT " 

LOCATE 14,45: PRINT "September... 
LOCATE 15, 8: PRINT " April. 

LOCATE 15,45: PRINT "Oktober. 

LOCATE 16, 8: PRINT " 


Mai. . 

LOCATE 16,45: PRINT "November... 
LOCATE 17, 8: PRINT " Juni. 
LOCATE 17,45: PRINT "Dezember... 
LOCATE ,,0 


";Runden 
"/Runden 
";Runden 
";Runden 
";Runden 
";Runden 
";Runden 
";Runden 
";Runden 
"/Runden 
"/Runden 
"/Runden 


"/Jahr$ 

"/Runden!(Einnahme!) 
"/Runden!(Ausgabe!) 

"/Runden!(Gesamt!) 

(Januar!) 

(Juli!) 

(Februar!) 

(August!) 

(Maerz!) 

(September!) 

(April!) 

(Oktober!) 

(Mai!) 

(November!) 

(Juni!) 

(Dezember!) 


CALL Warte 

CALL Hintergrund(vfarbe%, 
END SUB 


hfarbe%) 


Listing 2.5.3: Datenauswertung mit Bildschirmausgabe 


Die Auswertung erfolgt in mehreren wesentlichen Schritten. Zunächst wird 
über die Routine das Jahr der Buchungsauswertung abgefragt (Bild 2.5.1). 
Für die Eingabefeldvorgabe der Zeichenkette wird durch die Einleitung 
"/1 11 gesichert, daß nur numerische Zeichen eingebbar sind. 
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Bild 2.5.1: 
Abfrage des 
Buchungsjahrs 
für die 

Datenauswertung 
im Programm 
HAUSHALT 

Ißg 3 Beachten Sie, daß allerdings die Zeichen »+« und »-« ebenfalls in der ersten 
Spalte eingegeben werden können, was in diesem Fall nicht sinnvoll ist. Es 
wäre allerdings möglich, die Eingaberoutine so zu erweitern, daß auch 
spezielle Datums- und Jahresformate eingebbar wären. 

In unserer Auswertung kontrollieren wir nur, ob die Zeichenkette für das 
Jahr vier Zeichen enthält (dann LEN(Jahr$)= 4). Ist dies nicht der Fall (dann 
LEN(Johr$)<>4) wird das Unterprogramm über die Anweisung EXIT SUB 
verlassen. Da es kaum realistisch ist, daß für das Jahr »999« Buchungs¬ 
einträge vorhanden sind, wäre es unsinnig, die gesamte Datei nach 
passenden Buchungssätzen für dieses Jahr zu durchsuchen. 

Theoretisch könnte man auch den Wert von Jahr$ kontrollieren und damit 
ein genaues Grenzjahr, ab dem Buchungen zulässig sind, festlegen. So 
könnte man z.B. das Erscheinungsdatum unserer Software für diese Definition 
heranziehen. Wollten wir z.B. nur Buchungszeiträume ab 1990 berücksich¬ 
tigen, könnte die Anweisung IF VAL(Jahr$)<l 990 THEN EXIT SUB lauten. 

Im Anschluß verwenden wir die bereits im Informationsteil zu dieser 
Sitzung erläuterte FOR-NFXT-Schleife, um die Arbeitsdatei satzweise zu 
lesen und auszuwerten. Dabei werden nur Datensätze für das angegebe¬ 
ne Buchungsjahr berücksichtigt (IF RIGHTSfDotumS^J^ohrS THEN...). 
Um die Gesamtausgaben und Gesamteinnahmen zu ermitteln, brauchen 
wir von den zu berücksichtigenden Buchungseinträgen lediglich überprü¬ 
fen, ob es sich um positive oder negative Werte handelt. Negative Werte 
sind Ausgaben und werden über die Anweisung Ausgobe!=Aus- 
gabe!+ABS(Betrag!) addiert. Die Summe aller Ausgaben ist dabei durch 
Einsatz der Absolutfunktion ABS positiv. 
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a Ausgabe! und Einnahme! sind lokale und nicht statische Variablen. Daher 
^ sind Ihre Anfangswerte beim Aufruf der Funktion jeweils 0. Lokal heißt, die 
Variablen sind nur in dem Unterprogramm DatenAuswertung bekannt. 
Statisch heißt, daß die Endwerte der Variablen, nach dem ersten Aufruf der 
Routine, bei einem eventuellen zweiten Aufruf noch die Werte enthalten, die 
sich durch den ersten Aufruf ergeben haben. Wäre das der Fall, müßten 
Ausgabe! und Einnahme! am Beginn des Unterprogramms mit 0 initialisiert 
werden. 

Dementsprechend werden alle positiven Buchungseinträge in der Varia¬ 
blen Einnahme! addiert. Diese mathematischen Zuweisungen sollten Sie 
sich noch einmal genauer anschauen. 

Einnahme! = Einnahme! + Betrag! 

Durch diese Anweisung wird der Variablen Einnahme! ein Wert zuge¬ 
wiesen, der aus der Summe des alten Werts der Variablen Einnahme! und 
dem neu eingelesenen Wert Betrag! besteht. Durch den Einsatz innerhalb 
der FOR-NEXT-Sch\e\fe erreichen wir auf einfachste Art und Weise die 
Summation der passenden Werte. 

Die monatliche Saldenbildung muß dementsprechend ebenfalls in der 
FOR-NEXT-Schleife erfolgen. Die entsprechenden Zuweisungen stehen 
dabei innerhalb einer SELECF-CASE-Auswahl. Dazu haben wir zwölf 
Variablen für zwölf Monate eingeführt. 

Eine Alternativlösung hierzu sollen Sie im Übungsteil eigenständig unter 
Verwendung eines Datenfeldes realisieren. 

Um eine Zuordnung zu ermöglichen, ermitteln wir über MID$(Da- 
tum$,4,2) den Monat aus dem Buchungsdatum des jeweiligen Daten¬ 
satzes. Die Zuweisung erfolgt ähnlich wie bereits bei den Gesamtsummen. 
Positive und negative werden bei der Summenbildung automatisch ver¬ 
rechnet. 

Damit ist die Datenauswertung bereits erfolgt. Natürlich sollen die Ergeb¬ 
nisse für den Anwender auch sichtbar werden. Daher folgen nach der 
Auswertung unmittelbar die Anweisungen für die Bildschirmausgabe, 
wobei auch die benutzerdefinierte Funktion Runden! zum Einsatz kommt. 
Das Bildschirmfenster bleibt so lange auf dem Bildschirm, bis eine belie¬ 
bige Taste gedrückt wird (CALL Warte). 


98 



Tutorium 


HAUSHALT Uersion l.BB - Einnahwen-^Ausgabentlberschuprechnung 


Ausuertungsjahr . 

Summr aller Einnahnen . 

Sunne aller Ausgaben. 

Gesantsaldo. 

: 1991 

: 4794.95 

: 555.99 

: 4ZZ8.96 



0 

Juli. 

-Z33 

Februar..: 

0 

August . 

0 

März . : 

0 

Septenber . 

0 

April : 


flkf nhnr . 

0 


1077 90 

h|nuPMhpp. .... . 

0 

Juni . : 

3434 

Dezenber . 

0 


ti: Anuahl Neniie intrag RETURN: Neniiausuahl ArbeiLsdatei: 1991.DAT 


Bild 2.5.2: 
Bildschirm¬ 
ausgabe der 
Datenauswertung 
im Programm 


HAUSHALT 


Die LOCATE -Funktion ermöglicht es, mit der Anweisung LOCATE ,,0 den 
Textcursor unsichtbar und mit LOCATE,, 1 sichtbar zu machen. 

Nun können wir uns der Ausgabe auf dem Drucker und der grafischen 
Ausgabe zuwenden. 


Workshop 

Checkliste 

1. Über welche mathematische Funktionen verfügt Power Basic? 

2. Wie können in Power Basic nicht vorhandene mathematische Funktionen 
realisiert werden? 

3. Welche wichtigen Stringfunktionen von Power Basic haben Sie kennengelernt? 

4. Wie können Daten aus einer Datei besonders einfach ausgewertet werden? 


Ideen für eigene Übungen 

• Schreiben Sie eine Funktion, die die Fläche in einem Quadrat berechnet. 

• Schreiben Sie eine Funktion, die die Fläche eines Kreises berechnet. 

• Schreiben Sie eine eigene Stringfunktion, die ein bestimmtes Wort einer 
Zeichenkette, die aus mehreren Wörtern besteht, zurückgibt. Nehmen Sie z.B. 
die Zeichenkette "Es ist ein schöner Tag ", dann muß beim Ermitteln z.B. des 
dritten Wortes, die Zeichenkette "ein" zurückgegeben werden. 
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• In der derzeitigen Fassung der Routine DotenAuswertung wird für jeden 
Monatssaldo eine eigene Variable verwendet. Wie ließe sich dies über ein 
Datenfeld verbessern? 

• Ändern Sie die Routine DotenAuswertung so ab, daß eine Auswertung über 
bestimmte Buchungszeiträume möglich ist (z.B. 1.03.91 bis 1.03.93). Über¬ 
legen Sie dabei, ob es sinnvoll ist, die einzelnen Jahre zunächst getrennt 
auszuwerten, um im Anschluß eine Gesamtstatistik zu erstellen. 

• Entwickeln Sie ein Konzept, das es ermöglicht, mehrere Dateien unseres 
Haushaltsprogramms für die Datenauswertung zu verknüpfen! In diesem Fall 
könnten z.B. Geschäftsverbindungen zu bestimmten Personen oder Firmen in 
getrennten Dateien verwaltet und bei Bedarf verknüpft werden. 
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2.6 Sechste Sitzung: Druckerausgabe - 
Daten schwarz auf weiß 

Die Themen dieser Sitzung: 

• Anweisungen zur Druckerausgabe 

• Aufbereitung von Daten für die Druckerausgabe 

• Erstellung eines Seitenkopfes für die Druckerausgabe 

• Verwendung von Drucker-Steuercodes 

• Statische Variablen 


Information 

In dieser Sitzung wollen wir uns mit der Druckerausgabe befassen. 
Sämtliche Buchungssätze der jeweils aktiven Arbeitsdatei in unserem 
Programm HAUSHALT sollen in Tabellenform auf dem Drucker ausge¬ 
geben werden. Dabei ist zunächst zu berücksichtigen, daß die Drucker¬ 
ausgabe selbst über mehrere Textseiten gehen kann, da insgesamt bis zu 
500 000 Datensätze in einer Datei stehen dürfen. Die einzelnen Seiten 
sollen ordnungshalber mit einem einheitlichen Kopf und einer Seitennume¬ 
rierung versehen werden. Auf die Ausgabe der monatlichen Gesamt¬ 
salden werden wir an dieser Stelle verzichten, lediglich die Gesamt¬ 
summen der Einnahmen und der Ausgaben sowie der Gesamtsaldo eines 
Buchungsjahres sollen am Tabellenende ausgegeben werden. 

Anweisungen zur Druckerausgabe 

Power Basic stellt mit LPRINT eine einfache Anweisung zur Verfügung, die 
es erlaubt, Zeichen zum Drucker zu schicken. Dabei wird immer die erste 
parallele Schnittstelle eingesetzt. Durch LPRINT USING sind auch forma¬ 
tierte Ausgaben auf dem Drucker möglich. 

Beispiel: 


a%=3 

a!=3.5762 

LPRINT "Dies ist eine Druckerausgabe" 
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LPRINT "Variable a%: a% 

LPRINT USING "formatiert: ###,##";a! 

LPRINT "eins+"; 

LPRINT "zwei" 

Druckerausgabe: 

Dies ist eine Druckerausgabe 
Variable a%: 3 
formatiert: 3/58 

eins+zwei 

Wie Sie an unserem Beispiel erkennen, kann der Zeilenvorschub des 
Druckers unterdrückt werden, wenn die LPRINT-Anwelsung mit einem 
Semikolon endet. Der Zeilenvorschub erfolgt wie bei der PP/N7-Anwei- 
sung automatisch, wenn das Semikolon am Ende der Anweisung weg¬ 
gelassen wird. Die Standardzeilenbreite des Druckers ist auf 80 Zeichen 
voreingestellt. Verfügen Sie über einen Drucker, der auch DIN-A3-Formate 
bedrucken kann, oder Sie wollen eine kleine Schrift (z.B. LinePrinter) auf 
Ihrem Drucker verwenden, wodurch mehr als 80 Zeichen auf eine 
DIN-A4-Seite in eine Textzeile passen, so müssen Sie zunächst den 
W/DTH-Befehl verwenden. Ist Ihr Drucker an der Schnittstelle LPT1 ange¬ 
schlossen, was der Regelfall ist, so lautet die Anweisung WIDTH "LPT1 
255. In diesem Fall wird kein automatischer Zeilenvorschub mehr zum 
Drucker gesendet, es sei denn, Sie erzwingen einen Vorschub, indem Sie 
LPRINT ohne abschließendes Semikolon verwenden. 

a Auch wenn Sie nie LPRINT ohne abschließendes Semikolon einsetzen, wird 
^ standardmäßig nach genau 80 Zeichen ein Zeilenvorschub durchgeführt. Erst 
mit der WIDTH -Anweisung können Textzeilen mit mehr als 80 Zeichen 
gedruckt werden. 

Um die Zeilenbreite z.B. auf 150 Zeichen festzulegen, verwenden Sie die 
Anweisung WIDTH "LPT1:", 150. Ist Ihr Drucker an einer anderen 
Schnittstelle angeschlossen, ersetzen Sie LPT1 durch LPT2 bei der zweiten, 
und durch LPT3 bei der dritten parallelen Schnittstelle. 

Sollte Ihr Drucker allerdings nicht an der ersten parallelen Schnittstelle 
angeschlossen sein, müssen Sie auf die [PP/N7-Anweisung verzichten. 
Aber lassen Sie sich beruhigen, Power Basic bietet eine Anweisung, die 
weitaus flexibler ist als LPRINT. Wir werden zwar in unserem Programm 
LPRINT verwenden, aber damit Sie das Programm HAUSHALT an Ihren 
Rechner anpassen können, wollen wir Ihnen diese Lösungsmöglichkeit 
nicht vorenthalten. 
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Mit der Anweisung OPEN "LPT1:" AS #1: WIDTH #J, 255 öffnen Sie 
den Drucker als Datei und unterdrücken anschließend mit WIDTH den 
automatischen Zeilenvorschub. Um nun auf den Drucker zu schreiben, 
verwenden Sie den PP/N7#-Befehl. Um z.B. "Hollo" zu drucken, benutzen 
Sie die Anweisung PRINT#1, "Hallo". Für die zweite parallele Schnittstelle 
würden die Anweisungen wie folgt lauten: 

Druckerausgabe (zweite parallele Schnittstelle): 

OPEN "LPT2" AS #1 'LPT2 öffnen 

WIDTH #1, 255 'automatischen Zeilenvorschub abschalten 

PRINT #1, "Hallo" 'auf LPT2 drucken 

CLOSE #1 'LPT2 schließen 

Sind die Ausgaben eines Programms für Bildschirm, Datei und Drucker 
identisch, so können Sie über die OPEN-Anweisung, durch unterschied¬ 
liches Öffnen, dieselben PP/N7#Anweisungen verwenden. Zur Veran¬ 
schaulichung soll Ihnen das nächste Beispiel dienen. 

Beispiel: 

OPEN "SCRN:" FOR OUTPUT AS #1 'Bildschirm 

GOSUB Ausgabe 
CLOSE #1 

OPEN "LPT1:" FOR OUTPUT AS #1 'Drucker LPT1 

GOSUB Ausgabe 
CLOSE #1 

OPEN "TEST.DAT" FOR OUTPUT AS #1 'sequentielle Datei "TEST.DAT" 

GOSUB Ausgabe 
END 


Ausgabe: 

PRINT #1, "Hallo" 
RETURN 


Aufbereitung von Daten für die Druckerausgabe 

Um Daten beim Ausdruck aufzubereiten, stehen Ihnen in Power Basic 
mehrere Möglichkeiten zur Verfügung. Zum einen können Sie über LPRINT 
USING die Ausgabe formatieren, zum anderen können Sie sich Ihre 
Ausgaben für den Drucker über die Stringfunktionen, die wir bereits 
kennengelernt haben, selbst aufbauen und formatieren. Wir werden in 
unserer Druckerausgabe die letzte Möglichkeit wählen. Dabei stehen uns 
auch die Grafikzeichen aus dem ASCII-Zeichensatz’zur Verfügung, mit 
denen wir bereits unsere Fensterroutine realisiert haben. Bei der Drucker¬ 
ausgabe werden wir diese speziellen Zeichen nutzen, um die Linien für 
unsere Tabelle zu zeichnen. 
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Ein Seitenkopf für die Druckerausgabe 

Aus der Textverarbeitung kennen Sie vielleicht die Begriffe Kopf- und 
Fußzeile. Dabei handelt es sich um Zeilen, die jeweils wiederkehrend am 
oberen bzw. unteren Blattrand erscheinen. Auch Tabellen oder Drucker¬ 
ausgaben sollten über einen Seitenkopf markiert werden, der die Zusam¬ 
mengehörigkeit, aber auch die Reihenfolge des Dokumentes wiedergibt. 
Wir werden in unserem Seitenkopf, den wir für unser Programm HAUS¬ 
HALT programmieren wollen, den Programmnamen und die Seitennum¬ 
mer eintragen. Außerdem ist es sinnvoll, den Tabellenkopf in diesen 
Seitenkopf zu integrieren, damit wir auf jeder Druckerseite eine Spalten¬ 
definition für unsere Tabellenspalten vorfinden. 

Verwendung von Drucker-Steuercodes 

Über sogenannte Drucker-Steuercodes läßt sich, wie der Ausdruck bereits 
sagt, der Drucker ansteuern. So können Sie z.B. einen Seitenvorschub, 
Umstellung von Drucker-Schriftarten, Zeilenabständen, Textauszeichnun¬ 
gen (z.B. kursiv, fett) usw. vornehmen. Die Sache hat allerdings den 
Haken, daß die Codes von Hersteller zu Hersteller variieren. Ein Pro¬ 
gramm, das z.B. hervorragende Druckerausgaben auf einem Epson- 
Drucker macht, muß noch lange nicht für andere Drucker brauchbar sein. 
Da allerdings ein Großteil der Epson-Druckercodes auch bei anderen 
Druckern identisch ist und weil viele der heutigen Drucker eine Epson-Emu- 
lation anbieten, kann man sich bei Grundbefehlen an diese Druckercodes 
halten. Um das Programm HAUSHALT allerdings allgemein einsetzbar zu 
halten, werden wir auf umfangreichere Steuercodes in unserem Programm 
verzichten. 

Die Steuercodes selbst werden, ebenso wie normaler Text, über die 
LPRINT -Anweisung zum Drucker geschickt (alternativ PRINT#). 

Beispiele: 

LPRINT CHR$(12); 'Seitenvorschub 

LPRINT CHR$(27)+"@"; 'Druckerinitialisierung 
LPRINT CHR$(27)+"E"; 'Fettdruck ein 
LPRINT CHR$(27)+"F"; 'Fettdruck aus 

Sämtliche Druckeranweisungen, die Steuercodes enthalten, sollten mit 
einem Semikolon abgeschlossen werden. Nähere Informationen zu 
Druckersteuercodes können Sie Ihrem Druckerhandbuch entnehmen. 
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Praxis 

Auch in diesem Kapitel werden wir ausschließlich mit der Datei HAUS¬ 
HALT.BAS arbeiten. Zunächst müssen wir wieder das Hauptprogramm für 
unsere Druckerausgabe aufbereiten (Listing 2.6.1). Da die Druckeraus¬ 
wertung nur möglich ist, wenn eine Arbeitsdatei aktiviert und somit 
geöffnet wurde, verwenden wir erneut die Routine KeineDateiAktiv. 

: 'unveränderte Anweisungen 

CASE 4 'Ergebnisse ausdrucken 
IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 

CALL DatenAuswertung(2, DNr, vfarbe%, hfarbe%) 

END IF 

CASE 5 'Grafik 
: 'unveränderte Anweisungen 

Listing 2.6.1: An Druckerausgabe angepaßtes Hauptprogramm 

Beachten Sie, daß wir, anders als bei der Bildschirmauswertung, die 
Routine DatenAuswertung nun mit dem Wert 2 für den Unterprogramm¬ 
parameter Mode% aufrufen. Dadurch können wir, abhängig vom Para¬ 
meter Mode%, im Unterprogramm die Druckerausgabe durchführen. 

Datenauswertung und Druckerausgabe 

Zunächst wollen wir nun unsere Routine DatenAuswertung so erweitern, 
daß über den Parameter Mode%=2 die Kontrolle der Druckerausgabe 
durchgeführt wird. Um abhängig von diesem Parameter Druckbefehle 
abzuschicken oder nicht, bietet sich der Einbau von IF- Abfragen an. Die 
überarbeitete Routine DatenAuswertung ist in Listing 2.6.2 abgedruckt. 
Wesentliche Änderungen sind durch Fettdruck hervorgehoben. Beachten 
Sie, daß wir zum Teil Blöcke des Quelltextes weglassen, wenn hier keine 
Änderungen erforderlich sind. Diese Stellen werden durch Kommentar¬ 
zeilen dokumentiert. 

SUB DatenAuswertung(Mode%, Dateinummer, vfarbe%, hfarbe%) 

FIELD #Dateinummer, 10 AS BuchungsDatum$, 36 AS Beschreibung$,_ 

4 AS Betrag$ 

CALL Hintergrund(vfarbe%, hfarbe%) 

CALL Fenster(10, 16, 46, 1, vfarbe%, hfarbe%) 

Jahr$ = RTRIM$(RIGHT$(Date$, 4)) 

IF Mode%=l THEN 

Teil$ = "Bildschirm" 

ELSEIF Mode%=2 THEN 
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Teil$ = "Drucker” 

END IF 

CALL Eingabe("I|"+ Teil$+"auswertung für welches Jahr: ", Jahr$,_ 

4, 11, 18, vfarbe%, hfarbe%) 

IF LEN(Jahr$)<> 4 THEN EXIT SUB 
LOCATE ,,0 

FOR SatzNummer&=l TO LOF(Dateinummer)\50 
GET #Dateinummer, SatzNummer& 

Datum$ = BuchungsDatum$ 

Kommentar$ = Beschreibung$ 

Betrag! = CVS(Betrag$) 

IF RIGHT$(Datum$, 4) = Jahr$ THEN 

IF Betrag! < 0 THEN 'Gesamtsummen 

Ausgabe! = Ausgabe! + ABS(Betrag!) 

ELSEIF Betrag! > 0 THEN 

Einnahme! = Einnahme! + Betrag! 

END IF 

IF Mode%=2 THEN 'Druckerausgabe der Buchungssätze 

Summe ! = Einnahme! - Ausgabe! 

CALL DruckerAusgabe(SatzNummerfi, Datum$, Kommentar$,_ 

Betrag!, Summe!) 

END IF 

SELECT CASE MID$(Datum$, 4, 2) 'monatlicher Saldo 

: 'unveränderte Inhalt von SELECT CASE 

END SELECT 
END IF 

NEXT SatzNummer& 

Gesamt! = Einnahme! - Ausgabe! 

IF Mode% = 1 THEN 'Bildschirmausgabe wenn Mode%=l 

CALL Fenster(5, 5, 70, 15, vfarbe%, hfarbe%) 

: 'unveränderte Bildschirmausgabe 
CALL Warte 

ELSEIF Mode% = 2 THEN 'Druckerausgabe Gesamtsaldo 
LPRINT : LPRINT 

LPRINT Space$(3)+ "Auswertungsjahr.: ";Jahr$ 

LPRINT Space$(3)+ "Summe aller Einnahmen...: Runden!(Einnahme!) 

LPRINT Space$(3)+ "Summe aller Ausgaben....: "/Runden!(Ausgabe!) 

LPRINT Space$ (3)+"Gesamtsaldo.: Runden !(Summe! ) 

CALL FormFeed 

END IF 

CALL Hintergrund(vfarbe%, hfarbe%) 

END SUB 

Listing 2.6.2: Erweiterung der Routine DotenAuswertung um die Druckerausgabe 

In unserer Routine haben wir drei wesentliche Änderungen vorgenommen. 
Zunächst haben wir bei der Abfrage, für welches Jahr die Buchungsaus¬ 
gabe vorgenommen werden soll, den Vorgabestring erweitert, damit der 
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Anwender auch nach der Menüauswahl die Auswertungsart auf dem 
Bildschirm erkennen kann (Bild 2.6.1). 


[HAUSHALT Uersion 1.00 - Einnahnen-/'Ausgabenüberschuf3rechnung 


Druckerausuertung Für uelches Jahr 




Bild 2.6.1: 
Abfrage zur 
Drucker¬ 
auswertung 


Diese Erweiterung wurde aus optischen Gründen eingefügt, wäre also 
nicht unbedingt erforderlich. 

IF Mode%=2 THEN 'Druckerausgabe der Buchungssätze 

Summe! = Einnahme! - Ausgabe! 

CALL DruckerAusgabe(SatzNummer&, Datum$, Kommentar$, Betrag!, Summe!) 

END IF 

Diese zweite wesentliche Änderung, die innerhalb der FO/?-NEX7-Schleife 
steht, und nur abgearbeitet wird, wenn Mode%=2 ist, sorgt für die 
Ausgabe der einzelnen Buchungssätze. Da wir nach jedem Buchungssatz 
einen Zwischensaldo ausgeben wollen, verwenden wir eine weitere 
mathematische Formel. Die Tabellenwerte werden direkt an die Routine 
DruckerAusgabe übergeben, die für die Tabellenausgabe verantwortlich 
ist. Dieses Unterprogramm werden wir später noch besprechen. 

Die Ausgabe der Gesamtstatistik unserer Auswertung hat nach der Schlei¬ 
fe, wenn also alle Ergebnisse feststehen, zu erfolgen. Der Druck der 
Ergebnisse ist direkt in der Routine DatenAuswertung formuliert. Es wäre 
denkbar, ein neues Unterprogramm hierfür anzulegen. Für die Ausgabe 
verwenden wir die bereits besprochene [P/?/N7*-Anweisung. Damit das 
letzte Blatt aus dem Drucker ausgeworfen wird, lösen wir durch das 
Unterprogramm FormFeed einen Seitenvorschub aus. 
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Unterprogramme zur Druckerausgabe 

Auch die Unterprogramme zur Druckerausgabe geben wir in das Pro¬ 
gramm HAUSHALT.BAS am Ende des Quelltextes (nach der Routine 
DatenAuswertung) ein (Listing 2.6.3). Sie werden in diesem Abschnitt 
kennenlernen, wie eine Vielzahl von Routinen Zusammenwirken kann und 
daß größere Arbeiten in mehrere überschaubare Teilabschnitte zerlegt 
werden können. Wir werden die einzelnen Teilroutinen nacheinander 
vorstellen, auch wenn die Entwicklung zum Teil parallel erfolgt ist. 

Stellen Sie sich vor, Sie haben Ihre Routine zur Druckerausgabe bereits 
korrekt erstellt, wollen die Formatierung der Ausgabe aber ändern oder 
verbessern. Also programmieren Sie sich eine Funktion, die diese Forma¬ 
tierung durchführt und bauen diese anschließend innerhalb Ihrer zuvor 
entwickelten Routine ein. 

Bedenken Sie, daß benutzerdefinierte Routinen in der ersten Fassung nicht 
unbedingt in der Endfassung vorliegen müssen. Bei der Druckerausgabe 
könnten Sie z.B. zunächst überprüfen, ob die Ergebnisse richtig übergeben 
wurden, indem Sie sie unformatiert ausgeben. Im Anschluß daran können 
Sie die Formatierung vornehmen. Ebenso können Sie bei großen Blockstruk¬ 
turen Vorgehen (SELECT CASE, /F-Block), indem Sie zunächst die einzelnen 
Bedingungen formulieren und im Anschluß daran die Anweisungen zu diesen 
einzelnen Bedingungen eingeben. 

Wie Sie in Listing 2.6.3 sehen, wird in der Routine FormFeed lediglich 
das Druckersteuerzeichen für den Seitenvorschub zum Drucker (LPT1) 
geschickt. Die Routine SeitenKopf ist ebenfalls recht einfach zu verstehen, 
da sie nur über [P/?/NT-Anweisungen Informationen ausdruckt. Sie gibt an 
das aufrufende Programm die Anzahl der im Seitenkopf gedruckten Zeilen 
über den Parameter ZeilenZohl% zurück. Durch diese Formulierung ist es 
möglich, den Seitenkopf zu ändern und eine eventuelle neue Zeilenzahl 
anzugeben. Das Programm arbeitet dann weiterhin korrekt. Wie Sie 
sehen, formulieren wir den Tabellenkopf direkt mit Grafikzeichen aus dem 
ASCII-Zeichensatz. 

a Für Grafiksonderzeichen sind keine Tasten auf der Tastatur vorgesehen. Um 
diese dennoch eingeben zu können, sollten Sie sich das Zeichen aus der 
ASCII- Ta belle herauss uchen, den Dezimalwert ermitteln und über 
[Alt 1 + [ Dezimalwert~1 über die Tastatur eingeben. Wollen Sie z.B. das 
Sonderzeichen »=« ei ngebe n, so geben Sie dieses über (Alt] + [ 205 1 ein. 
Sie drücken also die [Alt 1 -Taste und tasten dabei die Zahlenkombination 
205 auf dem getrennten numerischen Zehnerblock (am rechten Tastaturende) 
ein. 
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Die aktuelle Seitenzahl, die wir in unserem Seitenkopf ausgeben wollen, 
erhalten wir über das aufrufende Programm über den Parameter Seite%. 

SUB FormFeed 

LPRINT CHR$(12); 

END SUB 


SUB SeitenKopf(Seite%, ZeilenZahl%) 

Seite% = Seite% + 1 
LPRINT 

LPRINT SPACES(3) + "HAUSHALT Version 1.00 
tung - Seite: ";Seite% 

LPRINT 

LPRINT 

LPRINT SPACES(3) + "Nr. |Buchung |"+_ 
"Kommentar 

LPRINT SPACES (3) + "-1-h"+_ 


ZeilenZahl% = 6 
END SUB 


- Druckerausgabe Datenauswer- 


|Buchung |Saldo 
H-1- 


SUB Druckzeile(Nr&, DatumS, Kommentars, Betrag!, Summe!) 

Nr$ = SollLenS(LTRIMS(STRS(Nr&)), 6) 

BetragS = LTRIMS(STRS(Betrag!)) 

SurnmeS = LTRIMS(STRS(Summe!)) 

LPRINT SPACES(3) + Nr$ + "|" + DatumS + "|" + KommentarS + "|" + 

FormatiereS (BetragS, 9) + " | " + FormatiereS (SurnmeS, 10) 

END SUB 


SUB DruckerAusgabe(SatzNummer&, DatumS, KommentarS, Betrag!, Summe!) 
STATIC ZeilenZahl%, Seite% 

IF ZeilenZahl% = 0 OR ZeilenZahl% = 60 THEN 
CALL SeitenKopf(Seite%, ZeilenAnzahl%) 

END IF 

CALL Druckzeile(SatzNummer&, DatumS, KommentarS, Runden!(Betrag!),_ 
Runden!(Summe!)) 

ZeilenZahl% = ZeilenZahl% + 1 
IF ZeilenZahl% = 60 THEN 
CALL FormFeed 
ZeilenZahl% = 0 
END IF 
END SUB 

FUNCTION FormatiereS(ZahlS, Laenge%) 

Komma% = INSTR(ZahlS, ".") 

IF Komma% = 0 THEN 

ZahlS = ZahlS + ".00" 

ELSEIF INSTR(ZahlS, ".") = LEN(ZahlS)-1 THEN 
ZahlS - ZahlS + "0" 

END IF 
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IF Laenge%> LEN(Zahl$) THEN 

Zahl$ = SPACE$(Laenge%-LEN(Zahl$) ) + Zahl$ 

END IF 

Formatiere$ = Zahl$ 

END FUNCTION 

Listing 2.6.3: Routinen für die Druckerausgabe im Programm HAUSHALT 

Der Aufbau der Tabellenzeile erfolgt durch das Unterprogramm 
DruckZeile. Sämtliche Werte, die in der Tabelle ausgegeben werden 
sollen, werden über die Parameterliste an diese Routine übergeben. Eine 
Erläuterung ist in der nachfolgenden Aufstellung noch einmal gegeben. 

Nr& : Datensatznummer bzw. Buchungssatznummer 

Datum$ : Buchungsdatum (deutsches Format) 

Kommentar$: Kommentar zur Buchung 
Betrag! : Buchungsbetrag 

Summe! : Zwischensaldo 

Beachten Sie, daß sämtliche numerischen Informationen zunächst mit Hilfe 
der STP$-Funktion in Zeichenketten umgewandelt werden. Da diese 
Funktion das erste Zeichen bei positiven Zahlenwerten als Leerzeichen 
darstellt, spalten wir dieses über die /T/?/M$-Funktion zunächst wieder ab. 
Auf diesem Wege würde die Zahl 3.56 zur Zeichenkette " 3.56" und 
schließlich zu "3.56". Der Aufbau der Tabellenzeile erfolgt innerhalb der 
[PP/NT-Anweisung, in der auch die benutzerdefinierte Funktion Formo- 
tiere$ aufgerufen wird. 

Die Funktion Formotiere$ sorgt dafür, daß sämtliche in Zeichenketten 
umgewandelte numerische Werte nach dem Runden genau zwei Nach¬ 
kommastellen erhalten. Dazu wird die Stelle des Dezimalpunkts ermittelt. 
Ist noch kein Komma vorhanden, muß es sich um eine Ganzzahl handeln, 
und wir können direkt die Zeichenfolge ".00" an unsere Zeichenkette 
anhängen. Befindet sich das Komma an der vorletzten Stelle (dann: 
Kommaposition=LEN(Zahl$)-l), so brauchen wir nur eine "0" zu ergän¬ 
zen. Da Zahlen in der Regel rechtsbündig ausgegeben werden, aber von 
links nach rechts der Ausgabestring aufgebaut wird, muß unsere Zahl auf 
eine bestimmte Anzahl von Zeichen mit Leerzeichen aufgefüllt werden. 
Dies erreichen wir durch die Anweisung Zohl$=SPACE$(Loenge%- 
LEN(Zahl$))-hZahl$. Den Parameter für die Länge erhalten wir durch das 
aufrufende Programm, in unserem Fall durch das Unterprogramm Druck- 
Zeile. 

Die Hauptsteuerung der Druckerausgabe wird durch das Unterprogramm 
DruckerAusgobe durchgeführt. Erinnern Sie sich daran, daß diese Routine 
innerhalb der Datenauswertung in Abhängigkeit des Parameters Mode% 
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aufgerufen wird. Innerhalb dieses Unterprogramms werden die zuvor 
erläuterten Unterprogramme verwendet. 

Beachten Sie die Anweisung STATIC in der Routine DruckerAusgabe. 
Damit werden die Variablen ZeilenZohl und Seite% als statische Variablen 
definiert. Zwischen den Aufrufen von DruckerAusgabe bleibt der Wert 
dieser Variablen erhalten. Erinnern Sie sich, daß standardmäßig neu 
eingeführte Variablen lokale Variablen sind, der Wert würde also zwi¬ 
schen den einzelnen Aufrufen verlorengehen. Zur Veranschaulichung 
sollten Sie sich die nächsten Beispiele ansehen. 

1. Beispiel: 

SUB Test 
a%=a%+l 
PRINT a% 

END SUB 

CALL Test 'Ausgabe —* 1 
CALL Test 'Ausgabe —► 1 
END 

2. Beispiel: 

SUB Test 
STATIC a% 
a%=a%+l 
PRINT a% 

END SUB 

CALL Test 'Ausgabe -* 1 
CALL Test 'Ausgabe -* 2 
END 

Damit können wir auf die Übernahme von Zeilenzahl% und Seite% in die 
Parameterliste verzichten, da diese Werte ausschließlich in der Routine 
DruckerAusgabe , nicht aber im Hauptprogramm benötigt werden. Wir 
wollen je Seite 60 Zeilen Text ausgeben. Daher erhöhen wir die Kontroll- 
variable ZeilenZahl% nach jeder Ausgabe einer Druckzeile, führen bei 
60 Zeilen einen Seitenvorschub ( CALL FormFeed] durch und setzen die 
Variable ZeilenZahl% wieder auf 0. 

Den Tabellenausdruck, den unsere Druckroutine erzeugt, sehen Sie im 
folgenden Beispielausdruck (Tabelle 2.6.1). Der Übersichtlichkeit halber 
haben wir für den Testdruck eine verkleinerte Schrift verwendet. Die 
Original-Druckerausgabe erfolgt in der voreingestellten Standardschrift 
des verwendeten Druckers. 
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Beispielausdruck: 


HAUSHALT Version 1.00 - Druckerausgabe Datenauswertung - Seite: 1 


Nr. 

1 Buchung |Kommentar 



1 Buchung |Saldo 

1 

111.05.19911 Kommentar 

1 


1 

-500.001 

-500. 

2 

j11.05.1991iKommentar 

2 


1 

400.00| 

-100. 

3 

|11.05.1991|Kommentar 

3 


1 

100.101 


4 

111.05.19911 Kommentar 

4 


1 

400.44| 

400! 

5 

j11.05.1991|Kommentar 

5 


1 

5.55 | 

406. 

6 

jll.05.19911 Kommentar 

6 


1 

4.661 

410. 

7 

i11.05.1991iKommentar 

7 


1 

7.77| 

418. 

8 

ill.05.19911 Kommentar 

8 


1 

8.88 | 

427. 

9 

jll.05.19911 Kommentar 

9 


1 

-9.991 

417. 

10 

i11.05.1991|Kommentar 

10 


1 

10.10 | 

427. 

11 

I11.05.19911 



1 

0.00 | 

427. 

Auswertungsjahr. 


1991 




Summe aller Einnahmen. 


937.5 




Summe aller Ausgaben. 


509.99 




Gesamtsaldo. 


427.51 





Bild 2.6.2: Beispielausdruck der Druckerroutine im Programm HAUSHALT 


Workshop 

Checkliste 

1. Welche Anweisungen zur Druckersteuerung stehen Ihnen in Power Basic zur 
Verfügung? 

2. Welche Möglichkeiten haben Sie, um Tabellen bei der Druckerausgabe zu 
generieren? 

3. Wozu wird ein Seitenkopf verwendet? 

4. Was sind Drucker-Steuercodes und wozu werden sie eingesetzt? 

5. Erläutern Sie die »statischen Variablen«! 


Ideen für eigene Übungen 

• Ermöglichen Sie eine Druckerausgabe für beliebige Zeiträume, ohne die 
Gesamtberechnung und die jeweiligen Berechnungen der Zwischensummen 
in den einzelnen Zeilen der Tabelle zu beeinflussen! 

• Erweitern Sie die Druckerausgabe so, daß auch die monatlichen Gesamt¬ 
salden mit ausgegeben werden. 

• Formatieren Sie die Druckerausgabe für Gesamteinnahmen, Gesamtausgaben 
und Gesamtsaldo so, daß die numerischen Werte rechtsbündig formatiert sind 
und jeweils zwei Nachkommastellen aufweisen! 


112 











Tutorium 


2.7 Siebte Sitzung: Daten grafisch dargestellt 

Die Themen dieser Sitzung: 

• Grafikmodus 

• Grafische Anweisungen von Power Basic 

• Makroprogrammierung mit DRAW 

• Koordinatensysteme 

• Kreis- und Liniendiagramme 


Information 

An dieser Stelle werden wir uns mit der Grafikprogrammierung unter 
Power Basic beschäftigen, wobei es sich um eines der komplexesten 
Gebiete in der Programmierung handelt. Für unsere Einnahmen-/Aus- 
gabenverwaltung wollen wir grafische Ausgaberoutinen entwickeln. 
Dabei soll der Verlauf der monatlichen Einzelsalden in einem Linien¬ 
diagramm und der Gesamtsaldo in einem Kreisdiagramm veranschaulicht 
werden. Um die Routinen überschaubar zu halten, werden wir ausschließ¬ 
lich einen bestimmten Grafikmodus benutzen, der später noch genauer 
zu erläutern ist. Wir wollen die Routinen aber so formulieren, daß eine 
Anpassung an beliebige Grafikmodi, ohne viel Arbeitsaufwand, möglich 
ist. 

Die Grafikmodi 

Sind die in unseren ersten Sitzungen entwickelten Routinen recht unab¬ 
hängig von der Hardware, so werden wir die Grafikroutinen ausschließ¬ 
lich für eine VGA-Grafikkarte programmieren. Verfügt Ihr Rechner nicht 
über diese Grafikkarte, müssen Sie eine Anpassung der Routinen vorneh¬ 
men. Zwar können Sie Grafikprogramme für beliebige Grafikkarten auf 
jedem Rechner programmieren, auf dem auch Power Basic lauffähig ist, 
eine Ausführung dieser Programme ist allerdings nicht unbedingt gewähr¬ 
leistet. Die folgende Liste gibt die derzeit auf dem Markt weit verbreiteten 
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Grafikkarten und die dabei jeweils zur Verfügung stehenden Power-Ba- 
sic-Grafikmodi wieder (Tabelle 2.7.1). 


Grafikkarte 

mögliche SCREEN-Modi 

CGA 

o, 1 ,2 

HGC (Hercules) 

0, 2, 3 

EGA 

0, 7, 8, 9, 10 

VGA oder MCGA 

0, 11, 12 


Tabelle 2.7.1: Grafikkarten und mögliche Bildschirmmodi 


EGA-, MCGA- und VGA-Karten sind in der Regel abwärtskompatibel und 
ermöglichen es bei entsprechendem Monitor, auch die CGA- und HGC- 
Karte zu emulieren. VGA- und MCGA-Karte emulieren zudem zusätzlich 
die EGA-Modi. Bei älteren Rechnern wurde zum Teil auf den Einbau einer 
Grafikkarte verzichtet. In diesem Fall können Sie keine Grafiken auf Ihrem 
Rechner darstellen. 

Die Einstellung des Grafikmodus erfolgt innerhalb von Power Basic mit 
Hilfe des SCREEN- Befehls. Je nach gewähltem Bildschirmmodus steht 
Ihnen eine bestimmte Auflösung zur Verfügung. Im Textmodus entspricht 
die Auflösung den Textspalten und den Textzeilen, im Grafikmodus spricht 
man von sogenannten Pixeln. Jeder Pixel besteht aus genau einem 
Bildschirmpunkt, der durch die Bildschirmkoordinaten und ein eventuelles 
Farbattribut bestimmt wird. In der Tabelle sind die vom jeweilig vorhan¬ 
denen SC/?EFN-Modi und die je nach Grafikkarte bedingten Bildschirm¬ 
auflösungen zusammengestellt. 
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SCREEN-Modus 

Grafikkarte 

Farben 

Auflösung in Pixeln 

1 

CGA 

4 

320x200 

2 

CGA 

2 

640x200 


HGC 

2 

720x348 

3 

HGC 

2 

720x348 

7 

EGA 

16 

320x200 

8 

EGA 

16 

640x200 

9 

EGA 

4/16 

640x350 

10 

EGA 

# 

640x350 (#=4 Attribute) 

11 

MCGA/VGA 

2 

640x480 

12 

MCGA/VGA 

16 

640x480 


Tabelle 2.7.2: Grafische Bildschirmmodi, Farben und Bildschirmauflösungen 


Da wir in unserem Programm HAUSHALT davon ausgehen, daß eine 
VGA-Grafikkarte vorhanden ist und wir die beste grafische Auflösung 
einschließlich Farbunterstützung nutzen wollen, werden wir den SCREEN- 
Modus 1 2 verwenden. 

Der VGA-Modus mit 256 Farben und einer Auflösung von 320x200 Pixeln 
wird derzeit noch nicht von Power Basic unterstützt. 

Je nach Grafikkarte steht eine unterschiedliche Anzahl von Bildschirm¬ 
seiten zur Verfügung. Die Seitenumschaltung erfolgt ebenfalls mit der 
SCREEN-Anweisung. 

Allgemein: 

SCREEN Modus, Zielseite, Farbflag, Aktivseite 

In unserem Programm benötigen wir die Seitenumschaltung nicht, deswe¬ 
gen wollen wir auf eine ausführlichere Erläuterung dieser Anweisung an 
dieser Stelle verzichten. Wollen wir z.B. lediglich in den SCREEN-Modus 
12 umschalten, genügt der Befehl SCREEN 12. 

a Bei der Ausführung einer SCREEN -Anweisung wird automatisch in den 
gewählten Grafikmodus gewechselt und der Bildschirm gelöscht. 


Grafische Anweisungen 

Wir haben in Power Basic eine Vielzahl sehr leistungsfähiger Grafik¬ 
routinen zur Verfügung, die allerdings nicht mit Grafikbibliotheken kon¬ 
kurrieren können, wie sie z.B. in den modernen Pascal- und C-Dialekten 
vorhanden sind. Dennoch sind die Anweisungen für die Programmierung 
von grafischen Standardausgaben, wie wir sie auch in unserem Programm 
HAUSHALT benötigen, ausreichend. Wir wollen hier nicht sämtliche Anwei- 
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sungen vorstellen, sondern nur die Befehle anführen, die zum Zeichnen 
geeignet sind. 


Zeichenbefehle mit Kurzerläuterung: 

CIRCLE 

Kreis oder Kreisausschnitt zeichnen 

DRAW 

Makrosprache zum Zeichnen von Punkten, Linien usw. 

LINE 

Linien, Quadrate und Rechtecke zeichnen 

PAINT 

Grafikbereiche ausmalen (füllen) 

PSET 

einzelne Pixel zeichnen 

PRESET 

einzelne Pixel löschen 


Tabelle 2.7.3: Zeichenanweisungen in Power Basic 


Man kann bei den Grafikanweisungen zwischen pixel- und vektororien¬ 
tiert unterscheiden. Bei den pixelorientierten Befehlen wird immer genau 
ein Bildpunkt geschrieben (PSETj oder gelöscht (PRESET). Mit diesen 
Befehlen können Sie beliebige grafische Funktionen erzeugen, was insbe¬ 
sondere für die Darstellung von mathematischen Funktionen (z.B. y=sin(x)) 
notwendig ist. Die Befehle haben allerdings den Nachteil, daß sie 
verhältnismäßig langsam und somit zum Aufbau komplexer Bildschirm¬ 
grafiken nicht geeignet sind. Programmieren Sie z.B. mit Hilfe der 
PSET-Funktion eine Routine zum Zeichnen einer Linie, müssen Sie die 
Bildschirmkoordinaten für jeden Bildpunkt, der zwischen dem Anfangs¬ 
und Endpunkt liegt, selbst berechnen. 

Vektororientierte Befehle, wie z.B. LINE, benötigen von geometrischen 
Figuren lediglich einige spezielle Daten und zeichnen das Gebilde 
anschließend eigenständig auf den Bildschirm. Die Berechnung von 
Zwischenwerten erfolgt automatisch, z.B. bei einer Linie, von einem 
angegebenen Anfangspunkt zu einem bestimmten Endpunkt. 

Die meisten Zeichenprogramme, die auf dem Markt erhältlich sind, 
arbeiten pixelorientiert, d.h. Grafiken werden punktweise gespeichert. 
Programme zum Erstellen technischer Zeichnungen (CAD) hingegen 
arbeiten vektororientiert. Eine Linie wird dabei nicht mehr punktweise 
gespeichert, sondern lediglich durch den Anfangs- und Endpunkt. 

Makroprogrammierung mit DRAW 

Eine spezielle Anweisung steht mit DRAW zur Verfügung. Dabei handelt 
es sich um eine einfache Makrosprache zum Zeichnen von Grafiken. 
DRAW erkennt eine Vielzahl von Kommandos, die eine Art Turtle- bzw. 
Schildkrötengrafik ermöglichen. Ausgehend von einer beliebigen Position 
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kann ein Zeichencursor in eine beliebige Richtung bewegt werden. Eine 
Drehung um einen bestimmten Winkel ist dabei ebenso möglich, wie das 
Füllen von Flächen oder das einfache Setzen des Zeichencursors. Die 
Zusammenstellung der DPA VV-Kommandos können Sie Tabelle 2.7.4 
entnehmen. DRAW erwartet die Kommandos in String- bzw. Zeichen¬ 
kettenformat. Durch die Anweisung DRAW "U20" könnten Sie z.B. den 
Zeichencursor um 20 Bildpunkte nach oben bewegen lassen. Aber auch 
Variablen können in den Kommandostring eingebaut werden. 

Beispiel: 

SCREEN 12 

Z%=40 : R$="U20 R30 U20 D40" 

DRAW "D="+VARPTR$(Z%) 

DRAW "BM 200, 200 X"+ VARPTR$(R$) 

Handelt es sich um eine variable Zeichenkette, verwenden Sie, wie in dem 
vorangegangenen Beispiel dargestellt, ein »X« und bei einer Zahl ein »=« 
zur Kennzeichnung. Power Basic verwendet eine andere Stringverwaltung 
als zum Beispiel der Vorgänger Turbo Basic. Damit Sie Routinen, die 
DRAW verwenden, auch in späteren Versionen von Power Basic nutzen 
können, sollten Sie immer mit der \44/?P7/?$-Funktion arbeiten. Wir ver¬ 
wenden in unserer Routine eine andere Möglichkeit, indem wir numeri¬ 
sche Werte über die S7P$-Funktion in eine Zeichenkette umwandeln. In 
diesem Fall ist allerdings nicht gewährleistet, daß die Routine auch später 
noch unter Power Basic lauffähig ist. 


Kommando 

Beschreibung 

Un 

Zeichencursor um n Pixel nach oben 

Dn 

Zeichencursor um n Pixel nach unten 

Ln 

Zeichencursor um n Pixel nach links 

Rn 

Zeichencursor um n Pixel nach rechts 

En 

Zeichencursor um n Pixel nach oben rechts 

Fn 

Zeichencursor um n Pixel nach unten rechts 

Gn 

Zeichencursor um n Pixel nach unten links 

Hn 

Zeichencursor um n Pixel nach oben links 

Mx,y 

Zeichencursor positionieren 

B 

Zusatzbefehl: Cursor nur bewegen, nicht zeichnen 

N 

Zusatzbefehl: nach Zeichenbefehl an ursprüngliche Position 

Aw 

Winkel w festlegen 

TAw 

Drehung um den Winkel w 

Cf 

Zeichenfarbe f festlegen 

Ss 

Skalierungsfaktor auf s/4 setzen 

Pf,g 

Bereich mit Farbe f füllen (g Grenzfarbe) 


Tabelle 2.7.4: DRAW-Kommandos 
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Koordinatensysteme 

Vielleicht kennen Sie aus der Mathematik noch die Koordinatensysteme. 
Zweidimensionale Funktionen werden z.B. in ein X/Y-Koordinatensystem 
eingetragen. Auch die Routine zum Zeichnen der monatlichen Zwischen¬ 
salden muß in ein zweidimensionales Koordinatensystem gelegt werden. 

Die erste Möglichkeit, die wir haben, ist, daß wir die bekannte Bildschirm¬ 
auflösung für unser Koordinatensystem berücksichtigen (physikalisches 
Koordinatensystem). Zum anderen könnten wir uns unser eigenes Koordi¬ 
natensystem mit dem W/NDOW-Befehl festlegen (globales Koordinaten¬ 
system). In diesem Fall werden die globalen Koordinaten in unserem 
Programm automatisch in die physikalischen Koordinaten umgerechnet. 
Der Einsatz der Anweisung WINDOW ist vor allen Dingen dann sinnvoll, 
wenn die darzustellenden Werte größer als die Bildschirmauflösung in 
Pixeln sind. Ist dies der Fall, und Sie verwenden WINDOW nicht, müssen 
Sie selbst für die korrekte Umrechnung sorgen. Wir werden in unserem 
Programm HAUSHALT auf den W/NDOW-Befehl verzichten und mit dem 
festen physikalischen Koordinatensystem arbeiten. 

Kreis- und Liniendiagramme 

Zur Veranschaulichung von Zahlenwerten verwendet man die sogenannte 
Geschäftsgrafik. Neben den Kreis- bzw. Kuchendiagrammen und den 
Balken- bzw. Stabdiagrammen, sind die Liniendiagramme die am häufig¬ 
sten verwendeten Grafikformen. Läßt sich in Kreisdiagrammen in der 
Regel nur eine begrenzte Anzahl von Werten veranschaulichen, können 
mit den Linien- und Balkendiagrammen theoretisch beliebig viele Werte 
dargestellt werden. Für unser Programm zur Einnahmen-/Ausgabenver- 
waltung wollen wir das Kreisdiagramm für den Gesamtsaldo und das 
Liniendiagramm für die monatlichen Zwischensalden verwenden. Das 
Kreisdiagramm ist dabei sehr einfach über den Befehl CIRCLE und das 
Liniendiagramm über den Befehl LINE realisierbar. 

Praxis 

Mit der Grafikausgabe wollen wir in dieser Sitzung die eigentlichen 
Anweisungen für unser Programm HAUSHALT abschließen. In den näch¬ 
sten Sitzungen werden wir uns dann mit der Programmoptimierung 
befassen. 
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Für die grafische Auswertung müssen wir zunächst das Hauptprogramm 
und anschließend noch einmal unsere Routine DatenAuswertung an¬ 
passen, in der der Aufruf für die grafischen Ausgaben erfolgen soll. Im 
Anschluß daran werden wir eine Routine zum Zeichnen eines Kreis¬ 
diagramms und eine Routine zum Zeichnen eines Liniendiagramms ent¬ 
wickeln. 

Wir werden sämtliche Änderungen und Programmerweiterungen in der 
Datei HAUSHALT.BAS vornehmen, die sich immernoch im Editor befindet. 
Zunächst sollten Sie mit Hilfe der Cursorsteuerung das Hauptprogramm 
ansteuern und die nötigen Änderungen in der SELECT-CASE- Auswahl, wie 
in Listing 2.7.1, vornehmen. 

: 'unveränderte Anweisungen des Hauptprogramms 

CASE 5 'Grafik 

IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 

CALL DatenAuswertung(3, DNr, vfarbe%, hfarbe%) 

END IF 

CASE 6 'Tools (OS-Shell) 

: 'unveränderte Anweisungen im Hauptprogramm 

Listing 2.7.1: Anpassung des Hauptprogramms an die Grafikausgabe 

Auch für die grafische Datenauswertung müssen wir zunächst wieder über 
die IF- Abfrage kontrollieren, ob bereits eine Arbeitsdatei ausgewählt und 
geöffnet wurde. Ist dies nicht der Fall, wird keine Grafikausgabe durch¬ 
geführt und lediglich eine Meldung für den Programmanwender ausge¬ 
geben ( CALL KeineDateiAktiv). Um der Routine DatenAuswertung zu 
zeigen, daß Grafiken erstellt werden sollen, übergeben wir für Mode% 
nun einen Wert ungleich 1 (Bildschirmausgabe) und ungleich 2 (Drucker¬ 
ausgabe). In diesem Fall haben wir den Wert 3 gewählt. Sie werden 
später anhand des Quelltextes im Listing 2.7.2 sehen, daß auch andere 
Werte zum selben Ergebnis geführt hätten. 

Datenauswertung und Grafikausgabe 

Nachdem wir die SELECT-CASE-Anweisung im Hauptprogramm erweitert 
haben, müssen wir nun zunächst die Änderungen an der Routine Daten¬ 
Auswertung vornehmen (Listing 2.7.2). Sämtliche wesentlichen Änderun¬ 
gen sind zur Veranschaulichung wieder durch Fettdruck hervorgehoben. 
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SUB DatenAuswertung(Mode%, Dateinummer, vfarbe%, hfarbe%) 

: 'unveränderte Anweisungen 

IF Mode%=l THEN 

Teil$ = "Bildschirm" 

ELSEIF Mode%=2 THEN 
Teil$ = "Drucker" 

ELSE 

Teil$ = "Grafik" 

END IF 

CALL Eingabe("I|"+ Teil$+"auswertung für welches Jahr: ", Jahr$,_ 

4, 11, 18, vfarbe%, hfarbe%) 

: 'unveränderte Anweisungen 
IF Mode%=l THEN 

: 'unveränderte Bildschirmausgabe 
ELSEIF Mode%=2 THEN 

: 'unveränderte Druckerausgabe 

ELSEIF Mode% = 3 THEN 'Kreisdiagramm 

SCREEN 12 'Grafikmodus 

CALL Linien(Januar!,Februar!, Maerz!, April!, Mai!, Juni!, Juli!,_ 
August!, September!, Oktober!, November!, Dezember!) 

CLS 

IF Einnahme!<>0 AND Ausgabe!<>0 THEN 
CALL Kreis(Einnahme!, Ausgabe!) 

END IF 

SCREEN 0 'zurück in Textmodus 

END IF 

CALL Hintergrund(vfarbe%, hfarbe%) 

END SUB 

Listing 2.7.2: Grafikerweiterung in der Routine DatenAuswertung 

Die erste Erweiterung in der Routine wurde aus rein optischen Gründen 
eingefügt. Wird nun eine Grafikauswertung durchgeführt, so wird das für 
die Berechnung zu berücksichtigende Buchungsjahr abgefragt, wie in Bild 
2.7.1 dargestellt. 

Die wesentlichen Anweisungen für die Grafikerstellung sind am Ende der 
Routine formuliert. Dann also, wenn sämtliche Ergebnisse, die für das 
Kreis-und Liniendiagramm benötigt werden, bereits berechnet sind. 

Beachten Sie, daß schon in der Routine DatenAuswertung mit der 
SCREEN -Anweisung in den Grafikmodus umgeschaltet wird. Grafische 
Ausgaben ohne Umschaltung in den Grafikmodus führen zu einem 
Laufzeitfehler. 
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Bild 2.7.1: 
Abfrage des 
Buchungsjahres 
für die Grafik¬ 
auswertung im 
Programm 
HAUSHALT 


Als erste grafische Ausgabe wird ein Liniendiagramm über das Unterpro¬ 
gramm Linien gezeichnet. Die zwölf Werte für die monatlichen Zwischen¬ 
salden werden über die Parameterliste übergeben. Farbwerte und Bild¬ 
schirmbegrenzungen sind fest vorgegeben und werden später im 
Unterprogramm selbst initialisiert. Ist die Routine Linien für alle Werte 
lauffähig, und wenn keine kritischen Berechnungen im Unterprogramm 
erfolgen, wird vor dem Aufruf des Unterprogramms Kreis zunächst über¬ 
prüft, ob Werte für die Einnahmen und Ausgaben ungleich Null vorhan¬ 
den sind. Erst dann ist eine sinnvolle Darstellung in einem Kreisdiagramm 
möglich. Die zwei Werte, die an Kreis übergeben werden, müssen in dem 
Unterprogramm in Werte umgerechnet werden, die eine Darstellung in 
einem entsprechenden Kreissegment bzw. Kuchenstück ermöglichen. 
Zwischen den beiden grafischen Darstellungen wird der Bildschirm über 
die CLS -Anweisung gelöscht. Erinnern Sie sich daran, daß auch die 
SC/?EEN-Anweisung den Bildschirm löscht, und zwar in unserem Fall vor 
der ersten und nach der letzten grafischen Ausgabe. Uber die Anweisung 
SCREEN 0 wird vom Grafik- in den Textmodus zurückgeschaltet. 

Das Kreisdiagramm 

Nachdem wir das Hauptprogramm und die Routine DatenAuswertung an 
die grafischen Ausgaben angepaßt haben, können wir uns nun der 
Grafikprogrammierung widmen. Sowohl die Anweisungen zum Kreisdia¬ 
gramm als auch die Anweisungen für das Liniendiagramm sollen in 
eigenen Unterprogrammen formuliert werden. Diese geben wir in den 
Editor wieder am Ende des Quelltextes ein, dort, wo auch die übrigen 
benutzerdefinierten Routinen vorhanden sind. 
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Der Grafikmodus, den wir verwenden, hat eine Auflösung von 640 x 480 
Pixel. Unser Unterprogramm Kreis soll ein Kreisdiagramm zeichnen, in 
dem lediglich zwei Werte gegenübergestellt werden. Die Einnahme¬ 
summe soll dabei der Gesamtheit des Kreises, also 100 % bzw. 360 
entsprechen. Die Ausgabesumme hingegen soll als Teilstück des Kreises 
berücksichtigt werden. Dabei gehen wir davon aus, daß die Ausgaben 
unter der Summe der Einnahmen liegen, der Gesamtsaldo also positiv ist. 
Bezogen auf Altgrad ergeben sich dann die folgenden mathematischen 
Beziehungen: 

Einnahmen = 100% bzw. 360 

Einnahmen/360= 1% bzw. 1 

Teilkreis = Ausgaben / (Einnahmen/360) 

Mit der letztgenannten Formel ist es uns möglich, umzurechnen, wie groß 
der Anteil der Ausgaben an den Einnahmen ist. Diese Formel haben wir 
auch in der Routine Kreis verwendet. Dazu ist allerdings zu berücksich¬ 
tigen, daß in Power Basic sämtliche Kreisfunktionen und auch die CIRCLE- 
Anweisung spezielle Werte in Bogenmaß und nicht in Altgrad erwarten. 
Da wir unsere Überlegungen aber in Altgrad gemacht haben, müssen wir 
eine Funktion entwickeln, die eine Umrechnung von Altgrad in Bogenmaß 
vornimmt. Die Formel für die Umrechnung kann jeder Formelsammlung 
entnommen werden. Es gilt: 

360 = 2 * PI 
PI = 3.141592654 

Die Funktion Grad2Rod# und das Unterprogramm Kreis sind in Listing 
2.7.3 abgedruckt. 

SUB Kreis(Einnahme!, Ausgabe!) 

maxX% = 640-1 'Grafikmodus 

maxY% = 480-1 

G! = Ausgabe!/(Einnahme!/360) 

LOCATE 30,1 'Text / Untergrund 

COLOR 1, 3 

PRINT "Fortsetzung mit beliebiger Taste..."; 

COLOR 14 'Beschriftung 

LOCATE 3, 20 

PRINT "Kreisdiagramm Einnahmen/Ausgaben Gesamt in DM" 

LOCATE 4, 20 

PRINT "Gesamteinnahmen: "/Runden!(Einnahme!);"DM" 

COLOR 4 
LOCATE 16, 61 

PRINT "Saldo =";Runden!(Einnahme!-Ausgabe!) 

COLOR 5 
LOCATE 15, 61 
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PRINT "Ausgaben=";Runden!(Ausgabe!) 

LINE (0, 0) - (maxX%, maxY%), 15, B 'Rahmen 

LINE (0, maxY%-16) - (maxX%, maxY%-16), 15 
CIRCLE (maxX%\2, maxY%\2), 150, 15 'Kreisdiagramm 

PAINT (maxX%\2, maxY%\2), 5, 15 

CIRCLE (maxX%\2, maxY%\2), 150, 15, -0.001, (-1) * Grad2Rad#(G!) 

PAINT (maxX%\2+10, maxY%\2+2), 2,15 

CALL Warte 'warten auf Tastendruck 

END SUB 

FUNCTION Grad2Rad#(G!) 
pi# = 3.141592654 
Grad2Rad# = ((2 * pi#)/360) * G! 

END FUNCTION 

Listing 2.7.3: Routinen zum Zeichnen eines Kreisdiagramms im VCA-Modus 

Nun wollen wir die Funktion ein wenig genauer betrachten. Zunächst wird 
PI - wie oben bereits erwähnt - initialisiert. Danach wird der übergebene 
Wert Gl in Altgrad in Bogenmaß umgerechnet. Dabei entspricht ein 
Altgrad (2*PI)/360. Demnach ist die Umrechnung in der Funktion 
Grad2Rad# korrekt erfolgt. 

a Grafikprogrammierung ist immer sehr eng mit der Programmierung von 
^ mathematischen Funktionen verbunden. Grundkenntnisse der Mathematik 
sind daher bei der grafischen Programmierung unbedingt erforderlich. 

In der Routine Kreis werden zunächst die Bildschirmbereiche initialisiert 
(640 x 480 Pixel). Die Bildbreite geht dabei von Pixel 0 bis 639 und die 
Bildtiefe von Pixel 0 bis 479. Anschließend wird, wie bereits erläutert, der 
Anteil der Ausgaben an den Einnahmen berechnet. Danach folgt ein 
allgemeiner Bildschirmaufbau mit Textinformationen (LOCATE-PRINT- An¬ 
weisungen) und das Zeichnen eines Bildschirmrahmens mit Hilfe der 
[/NE-Anweisung. Beachten Sie, daß der Text entsprechend der VGA-Auf- 
lösung positioniert wurde, und bei anderen Grafikmodi unter Umständen 
Korrekturen erforderlich sind. Die Grafikbefehle hingegen sind so formu¬ 
liert, daß die Änderung der Variablen moxX% und moxY% am Beginn 
des Unterprogramms die wichtigsten Anpassungen an eine andere Bild¬ 
schirmauflösung vornehmen. Mit Hilfe der C//?QE-Anweisungen wird 
dann das Kreisdiagramm gezeichnet. 

Vereinfachte C//?QE-Anweisung: 

CIRCLE (x,y),Radius,Farbe,Anfang,Ende 
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Die C//?QE-Anweisung benötigt zunächst Koordinaten für den Kreismittel- 
punkt (x und y), den Radius im gewählten Koordinatensystem und eine 
Zeichenfarbe. 

Wird nur ein Kuchenstück gezeichnet, müssen zusätzlich Werte für den 
Anfangs-und Endwinkel in Bogenmaß gemacht werden. Diese Werte sind 
in unserem Programm negativ, damit der Anfang und das Ende des 
Bogens mit dem Kreismittelpunkt verbunden werden, also ein »Kuchen¬ 
stück« entsteht. Mit der PAINT -Anweisung können wir die geschlossenen 
Linien der jeweiligen Kreisfläche mit einer Farbe füllen lassen. Dazu muß 
der Zeichencursor sich innerhalb des Kreises bzw. des entstandenen 
Kuchenstücks befinden. Dies erreichen wir dadurch, daß wir für PAINT 
den Cursor minimal in Richtung Füllfläche bewegen (Listing). Die Funktion 
zum Berechnen eines Wertes von Altgrad in Bogenmaß wird innerhalb 
der C//?QE-Anweisung aufgerufen. 

Damit die Programmausführung unterbrochen wird, die Grafik also zu¬ 
nächst auf dem Bildschirm stehen bleibt, rufen wir die in der ersten Sitzung 
entwickelte Routine Worte auf. Das Programm wird dann nur fortgesetzt, 
wenn eine beliebige Taste gedrückt wird. 



Bild 2.7.2: 
Bildschirm¬ 
ausgabe eines 
Kreisdiagramms 
im Programm 


HAUSHALT 


Die Bildschirmausgabe, die sich durch die Routine Kreis ergibt, ist in Bild 
2.7.2 dargestellt. 
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Das Liniendiagramm 

Nun können wir uns unserer zweiten Grafik zuwenden. Auch hier werden 
zunächst die Werte für die Bildschirmauflösung definiert. Im Anschluß 
daran wird ein X/Y-Koordinatensystem mit LINE und eine passende 
Beschriftung mit den Befehlen LOCATE und PRINT auf den Bildschirm 
gezeichnet. 

a Eine Beschriftung von Grafiken ist in Power Basic nur über die PRINT- Anwei- 
sung möglich. Dieser Befehl hat allerdings den Nachteil, daß Text nicht 
pixelorientiert, sondern wie im Textmodus nur zeilen- und spaltenweise 
ausgegeben werden kann. Über die Makrosprache DRAW wäre es möglich, 
sich vorher genau definierte Buchstaben auch pixelorientiert ausgeben zu 
lassen. 


Um Pfeilspitzen an unserem Koordinatensystem zu realisieren, verwenden 
wir den Makrobefehl DRAW. Erst danach kann der Linienzug der monat¬ 
lichen Gesamtsalden in unser Koordinatensystem eingetragen werden. 

Dazu verwenden wir eine FOR-NEXT- Schleife, die durch Anwendung 
einer SELECT-CASE -Anweisung sämtliche Monatswerte in chronologischer 
Reihenfolge auswertet. Durch die letzte DRAW -Anweisung vor dieser 
Schleife wird der Zeichencursor zunächst auf den Koordinatenursprung 
gesetzt. In der Schleife selbst wird dann von Wert zu Wert eine Linie mit 
LINE gezeichnet (Listing 2.7.4). Aus diesem Grunde brauchen wir nie 
einen Anfangs-, sondern immer nur den Endpunkt der Linie anzugeben. 


SUB Linien(Jan!,Feb!,Mar!,Apr!,Mai!,Jun! , Jul! , Aug! , Sep! , Okt!,Nov!,Dez!) 


maxX% = 640-1 'Grafikmodus 

maxY% = 480-1 
LOCATE 30,1 
COLOR 1, 3 

PRINT "Fortsetzung mit beliebiger Taste. 

COLOR 14 
LOCATE 3, 25 

PRINT "Salden bezogen auf einzelne Monate" 

LOCATE 4, 20 

LINE (0, 0) - (maxX%, maxY%), 15, B 'Rahmen 

LINE (0, maxY%-16) - (maxX%, maxY%-16) , 15 
LINE (10, maxY%\2) - (maxX%-10, maxY%\2), 1 


Text / Untergrund 


Beschriftung 


DRAW "CI Hl0 F10 G10" 

LINE (20, maxY%-30) - (20, 35), 
DRAW "CI Gl0 E10 F10" 

DRAW "BM 10,"+STR$(maxY%\2) 

FOR x%=l TO 12 
DRAW "R45 D5 U5" 

NEXT x% 

COLOR 1 

LOCATE 2, 3: PRINT "DM*1000" 


'Pfeil rechts 

'Pfeil rechts 
'Ursprung 

'x-Koordinatenleiste 
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LOCATE 16, 2 

: PRINT 

"0" 

LOCATE 16,72 

: PRINT 

"Monat" 

LOCATE 17, 6 

: PRINT 

" Jan" 

LOCATE 17,24 

: PRINT 

"Apr" 

LOCATE 17,46 

: PRINT 

"Aug" 

LOCATE 17,68 

: PRINT 

"Dez" 

DRAW "BM 20, 

"+STR$(maxY%\2) 

FOR x%—1 TO 

3 


DRAW "D60 

R5 L5" 


NEXT x% 

DRAW "BM 20, 

"+STR$(maxY%\2) 

FOR x%=l TO 

3 


DRAW "U60 

R5 L5" 


NEXT x% 

LOCATE 4,5: 

PRINT 

" + 15 " 

LOCATE 8,5: 

PRINT 

"+10" 

LOCATE 12,5: 

PRINT 

" + 5 " 

LOCATE 19,5: 

PRINT 

,._ 5 „ 

LOCATE 23,5: 

PRINT 

"-10" 

LOCATE 27,5: 

PRINT 

"-15" 

DRAW "BM 55, 

"+STR$((maxY%\2 

xWert%=55 

FOR x% = 2 TO 12 


SELECT CASE x% 


CASE 2: 

Monat! 

= Feb! 

CASE 3: 

Monat! 

= Mar! 

CASE 4: 

Monat! 

= Apr! 

CASE 5: 

Monat! 

= Mai ! 

CASE 6: 

Monat! 

= Jun! 

CASE 7: 

Monat! 

= Jul! 

CASE 8: 

Monat! 

= Aug! 

CASE 9: 

Monat! 

= Sep! 

CASE 10: 

Monat! 

= Okt! 

CASE 11: 

Monat! 

= Nov! 

CASE 12: 

Monat! 

= Dez! 

CASE ELSE 



'y-Koordinatenleiste 


'y-Koordinatenleiste 


'Liniengrafik 


END SELECT 
xWert% = xWert%+45 

LINE -(xWert%, (maxY%\2)-PixelWert%(Monat!)) , 14 
NEXT x% 

CALL Warte 
END SUB 


FUNCTION PixelWert%(Wert!) 

PixelWert% = INT(Wert! * (60/5000)) 

END FUNCTION 

Listing 2.7.4: Routinen zum Zeichnen eines Liniendiagramms im VGA-Modus 

Da wir in dieser Routine ein physikalisches Koordinatensystem verwen¬ 
den, müssen wir die Umrechnung der Werte, die in dieses Koordinaten¬ 
system einzutragen sind, selber vornehmen. Dies erfolgt über die Funktion 
PixelWert%. Dazu sind zunächst wieder einige mathematische Vorüber- 
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legungen notwendig. Eine Einheit auf unserer Y-Achse soll 5000 DM 
betragen. Sie soll ferner 60 Pixel in unserer Grafik entsprechen. Demnach 
gilt für einen bestimmten Wert: 

Pixel = Wert * (60/5000) 

Diese Formel verwenden wir auch in der Routine PixelWert% und konver¬ 
tieren das erhaltene Ergebnis in eine Ganzzahl (Datentyp Integer), da nur 
ganze Pixelwerte in unserer Grafik berücksichtigt werden können. Die 
Funktion wird innerhalb der L/NE-Anweisung aufgerufen, die unsere 
Ergebnisse auf den Bildschirm zeichnet. 

Nachdem die Grafik komplett auf dem Bildschirm gezeichnet ist, wird die 
Programmausführung über die Anweisung CALL Warte wieder so lange 
unterbrochen, bis der Anwender das Programm durch eine beliebige 
Taste fortsetzt. Eine Ergebnisgrafik der Routine Linien ist in Bild 2.7.3 
dargestellt. 


Bild 2.7.3: 
Bildschirmaus¬ 
gabe eines 
Liniendiagramms 
im Programm 
HAUSHALT 

Für allgemeinere Formulierungen eines Liniendiagrammes sollten Sie das 
Zeichnen des Koordinatensystems und das Zeichnen einzelner Linien in 
getrennten Unterprogrammen formulieren. Dann ist es auch sehr leicht 
möglich, mehrere Linien in ein Diagramm zu zeichnen, ohne daß das 
Koordinatensystem jedesmal neu gezeichnet wird und unter Umständen 
bereits gezeichnete Linien überschreibt. 

Nach der Fertigstellung ist unser Programm zur Einnahmen-/Ausgaben- 
überschußberechnung eigentlich schon fertig. Wir können es nun mit der 
Tastenfolge lAitl + präl und GeU in Maschinensprache übersetzen und 
ausführen lassen. Sicherlich werden Sie bemerken, daß noch nicht alle 
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Menüeinträge in unserem Programm HAUSHALT belegt sind, und unter 
Umständen Fehlermeldungen das Programm vorzeitig beenden. 

Ein Fehler tritt z.B. auf, wenn Sie die Druckerausgabe im Programm 
starten, der Drucker aber nicht bereit ist. Aus diesem Grunde werden wir 
nun mit der Optimierungsphase unserer Programmentwicklung beginnen. 

Workshop 

Checkliste 

1. Was bedeutet der Grafikmodus für die Programmierung? 

2. Wie kann zwischen den unterschiedlichen Grafikmodi in Power Basic umge¬ 
schaltet werden? 

3. Welche Möglichkeiten bietet Ihnen die DRAW-Anweisung? 

4. Nennen Sie die wichtigsten grafischen Anweisungen von Power Basic und Ihre 
Möglichkeiten! 

5. Wie zeichnen Sie in Power Basic ein Kreissegment? 

6. Mit welchen Befehlen können Sie ein Kreis- bzw. Liniendiagramm erstellen? 

7. Mit welchem Befehl können Sie in Power Basic einen Rahmen zeichnen? 

8. Erläutern Sie den Unterschied zwischen pixel- und vektororientiert! 

9. Welche Koordinatensysteme haben Sie in dieser Sitzung kennengelernt? 


Ideen für eigene Übungen 

• Formulieren Sie die Routine für das Kreisdiagramm so um, daß sie speziell für 
den EGA-Modus einsetzbar ist! Berücksichtigen Sie die Änderungen, die dafür 
im Hauptprogramm erforderlich sind (SCREEN-Befehl)! 

• Wie wir bereits erwähnt haben, bietet sich die Verwaltung der monatlichen 
Zwischensalden in einem Datenfeld an. In diesem Fall wäre der Prozedurkopf 
der Routine Linien z.B. in SUB Linien(Salden!()) umzuändern. Nehmen Sie die 
weiteren Anpassungen in diesem Unterprogramm für den Aufruf mit dem 
Datenfeld vor und formulieren Sie den Unterprogrammaufruf, wenn Ihr Daten¬ 
feld im aufrufenden Programm den Namen MonotSaldenlf) hat. 

• Ersetzen Sie die S77?$-Funktion in der Routine Linien durch die VARPTR$- Funk¬ 
tion, damit die Routine auch für spätere Power-Basic-Versionen einsetzbar ist! 
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2.8 Achte Sitzung: Optimierung durch 
Fehlerbehandlung 

Die Themen dieser Sitzung: 


• Syntaxfehler und Laufzeitfehler 

• Abfangen von Laufzeitfehlern 

• Möglichkeiten der Programmierung mit der ON-ER/?OR-Anweisung 


Information 

In dieser Sitzung wollen wir unser Programm HAUSHALT mit einer 
Fehlerbehandlungsroutine ausstatten. Fehler, die während der Programm¬ 
ausführung auftreten, sollen nicht mehr zum Programmabbruch führen. 
Statt dessen soll für den Anwender eine aussagekräftige Fehlermeldung 
auf dem Bildschirm ausgegeben werden. Diese soll den Fehler - wenn 
möglich - abstellen. Im Anschluß, nach der Fehlermeldung, soll das 
Programm fortgeführt werden. 

Syntaxfehler und Laufzeitfehler 

In der Programmierung unterscheidet man zwischen den Syntax- oder 
Kompilier-Fehlern und den sogenannten Laufzeitfehlern. Werden die 
Syntaxfehler bereits bei der Übersetzung durch den Compiler erkannt, 
ergeben sich die Laufzeitfehler erst während der Programmausführung. 

Geben Sie z.B in einem Programm die Zeile PRIN "Hallo Freunde!" ein, 
meldet der Compiler bereits während der Umsetzung in Maschinen¬ 
sprache den Fehler Error 415: "=" expected, und der Textcursor des 
Editors springt an den Anfang der entsprechenden Zeile. Natürlich sehen 
Sie sofort, daß es sich hier um einen Schreibfehler des Schlüsselwortes 
PRINT handelt, der sich umgehend korrigieren läßt. Damit wäre der 
Syntaxfehler beseitigt. Die Fehlermeldung bedarf an dieser Stelle noch 
einer kurzen Erläuterung. Der Compiler muß zunächst überprüfen, ob es 
sich in der jeweiligen Zeile um Befehle handelt, die in Power Basic definiert 
sind, wie z.B. der Befehl PRINT, oder ob es sich um benutzerdefinierte 
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Befehle oder Variablen handelt. In unserem Fall nimmt der Compiler an, 
daß es sich bei PRIN um eine Variable handelt. Dieser Variablen wird ein 
konstanter Wert, nämlich eine Zeichenkette, zugewiesen. Die Zuweisung 
erfolgt immer durch das »=«-Zeichen, das allerdings in unserer Zeile fehlen 
würde. Dies erklärt zunächst die Fehlermeldung des Compilers. 

Sie sehen, daß die Fehlermeldung nicht immer eine korrekte Lösung bietet. 
Bei den Fehlern, die durch den Compiler aufgespürt werden, handelt es 
sich aber um recht leicht korrigierbare Fehler. In der Regel sind lediglich 
Schreibfehler zu verbessern. 

Alle Fehler, die nicht vom Compiler entdeckt werden, sind sogenannte 
Laufzeitfehler: Fehler, die erst bei der Programmausführung und häufig 
nur bei bestimmten Sonderfällen auftreten. Durch spezielle Programmier¬ 
techniken kann eine Vielzahl von möglichen Laufzeitfehlern bereits bei der 
Programmerstellung berücksichtigt werden. Man kann grob zwei Arten 
von Laufzeitfehlern unterscheiden. Zunächst gibt es die Laufzeitfehler, die 
durch den Quelltext selbst hervorgerufen werden (z.B. Überschreiten von 
Bereichsgrenzen eines definierten Datenfeldes). Diese können zum Teil 
durch spezielle Programmsteuerungen unterdrückt werden. Weniger 
Möglichkeiten hätte man bei den Laufzeitfehlern, die sich durch das 
Rechnersystem selbst ergeben (z.B. Drucken bei ausgeschaltetem 
Drucker). In diesem Fall tritt also ein Laufzeitfehler auf, obwohl der 
Quelltext korrekt ist. Für solche Fälle stellt Power Basic mit der ON-ERROR- 
Anweisung eine komfortable Möglichkeit zur Fehlerbehandlung bereit, 
die wir nachfolgend noch genauer besprechen werden. 

Abfangen von Laufzeitfehlern 

Wie bereits mehrfach in unserem Programm HAUSHALT geschehen, kann 
das Auftreten von Fehlern während der Laufzeitphase durch sogenannte 
Steuerungsvariablen vermieden werden. So ist z.B. keine Datenaus¬ 
wertung möglich, solange keine Arbeitsdatei gewählt wurde. Man muß 
natürlich berücksichtigen, daß sämtliche Anweisungen zur Kontrolle von 
Programmvariablen, wie es auch in unserem Fall über die Variable 
Arbeitsdatei$ geschieht, zusätzlichen Programmcode erzeugt. Das heißt, 
unser Programm wird um so größer, je mehr Kontrollen und eventuelle 
Korrekturen wir einbauen. Nehmen wir hierzu ein Beispiel. Ein mathema¬ 
tisches Ergebnis soll durch folgende Anweisung errechnet werden: 

Ergebnis! = 1000 / Variable% 
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Würden wir für Variable% nun den Wert Null einsetzen, ergäbe sich eine 
unzulässige Division durch Null. Diesen Fall könnten wir recht schnell über 
eine IF -Abfrage ausschließen. 

IF Variable 5 * <> 0 THEN 

Ergebnis! = 1000 / Variable 5 * 

END IF 

So weit, so gut. Nun müssen wir allerdings weiterhin bedenken, daß unser 
Ergebnis eventuell im weiteren Programmverlauf für weitere Berechnungen 
benötigt wird. Wurde kein entsprechender Wert für Ergebnis! initialisiert, 
wäre dieser Wert gleich Null und würde aller Voraussicht nach zu 
weiteren Fehlern führen. Unser erster Versuch, den Fehler abzufangen, 
kann also auch ganz das Gegenteil bewirken. Es sieht dann zwar so aus, 
als ob das Programm korrekt arbeiten würde, die Endergebnisse wären 
allerdings falsch. Das Aufspüren dieser Fehler ist äußerst schwierig. Daher 
überdenken Sie zunächst, welche Konsequenz eine programmiertech¬ 
nische Korrektur haben kann. Auch ist es nicht unbedingt erforderlich, 
sämtliche Variablen vor der Auswertung auf Korrektheit zu überprüfen. 
Hierzu wollen wir ein kleines Beispiel anführen. 

'Hauptprogramm 

Zeile%=30 

Spalte%=l 

CALL Meldung (Zeile%, Spalte 5 *) 

CALL Meldung (25, 7) 

END 

'Unterprogramm 

SUB Meldung (Zeile 5 *, Spalte 5 *) 

LOCATE Zeile%, Spalte 5 * 

PRINT "Dies ist eine Meldung"; 

END SUB 

Für die Variable Zei\e% sind im Normalfall nur die Werte 1 bis 25 und 
für die Variable Spalte% nur die Werte 1 bis 80 zulässig. Da die 
Festlegung von Bildschirmausgaben in der Regel im Hauptprogramm 
bereits fest erfolgt, lohnt es sich natürlich nicht, sämtliche Übergabepara¬ 
meter des Unterprogramms zu überprüfen. Falsche Angaben führen dann 
bereits während der Testphase zu Fehlermeldungen im Entwicklungs¬ 
system von Power Basic. 

Natürlich können nicht sämtliche Fehler auf diesem Wege abgefangen 
werden. Mit der Fehlerverfolgung über die ON-E/?RO/?-Anweisung haben 
wir allerdings die Möglichkeit, auch die unwahrscheinlichsten Fehler zu 
berücksichtigen. Benutzen Sie ON-ERROR nicht, und es tritt ein Laufzeit¬ 
fehler in einem ausführbaren Maschinenprogramm auf, wird das Pro- 
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gramm unmittelbar beendet und auf Kommandozeilenebene zurückge¬ 
kehrt. Auf dem Bildschirm erscheint dann eine Fehlermeldung in der 
nachfolgenden Form. 

Error 75 at pgm-ctr: 1334 

Die Möglichkeiten, die Sie haben, um einen so gemeldeten Laufzeitfehler 
in Power Basic zu lokalisieren, werden wir in unserem Kapitel zur 
Fehlerbeseitigung noch besprechen. 

Die ON-ERROR-Anweisung 

Mit der ON-ERROR -Anweisung haben Sie die Möglichkeit, eine Fehler¬ 
behandlungsroutine festzulegen, die beim Auftreten eines Laufzeitfehlers 
angesprungen werden soll. Die Fehlerverfolgung können Sie jederzeit 
aktivieren und wieder ausschalten. 

Anweisungen zur Fehlerverfolgung: 

Sprungmarke definieren: ON ERROR GOTO label 
Verfolgung abschalten : ON ERROR GOTO 0 

Beachten Sie, daß, wenn die Fehlerverfolgung in einem ausführbaren 
Programm wieder abgeschaltet ist, unter Umständen das Programm wieder 
mit einer Fehlermeldung abgebrochen wird. Der Beginn der Fehler¬ 
behandlungsroutine wird durch ein sogenanntes Label bzw. eine Sprung¬ 
marke eingeleitet und immer mit einer RESUME-Anweisung beendet. 

RESUME- Anweisung: 

RESUME oder : Programm mit der Anweisung fortsetzen in 
RESUME 0 : der der Fehler aufgetreten ist 

Resume NEXT : Programm mit der Anweisung fortsetzen, die 
nach der Anweisung folgt, in der der Fehler 
aufgetreten ist 

RESUME Label: Programm an einer definierten Sprungmarke 
fortsetzen 

Die RESUME-Anweisung darf ausschließlich in Verbindung mit der ON- 
ERROR-Anweisung eingesetzt werden. 

In der Tabelle 2.8.1 sind die wichtigsten Laufzeitfehlermeldungen von 
Power Basic aufgeführt. Fehler 51 ist ein besonders kritischer Fehler. Er 
besagt, daß ein Fehler innerhalb von Power Basic selbst aufgetreten ist. 
Eine Beseitigung von seiten des Programmierers ist in diesem Falle nicht 
möglich. Sollte eines Ihrer Programme diesen Fehler tatsächlich hervor- 


132 



Tutorium 


rufen, sollten Sie sich direkt an Kirschbaum Software, den deutschen 
Programmvertreiber, wenden. 


Laufzeitfehler 

Fehlerbeschreibung 

6 

Datentyp-Überlauf in einer Berechnung 

7 

unzureichender Speicher 

n 

Division durch Null 

14 

Speicher für Zeichenketten voll 

15 

Eine Zeichenkette ist zu lang 

24 

COM-Timeout 

25 

Peripherieprobleme 

27 

kein Papier im Drucker 

51 

interner Power-Basic-Fehler 

53 

Datei nicht gefunden 

55 

Datei ist bereits geöffnet 

57 

Geräte-E i n-/ Ausga befeh ler 

58 

Datei ist bereits vorhanden 

61 

Diskette/Festplatte voll 

71 

Laufwerksklappe geöffnet 

72 

Diskette defekt! 

75 

Datei gegen Zugriff gesperrt 

76 

Suchpfad ist nicht vorhanden 

242 

Zeichenkettenspeicher zerstört 


Tabelle 2.8. 1: Die wichtigsten Laufzeitfehlermeldungen von Power Basic 


Der Grundaufbau der Fehlerbehandlung kann an einem einfachen Bei¬ 
spiel veranschaulicht werden. 

'Hauptprogramm 

ON ERROR GOTO Behandlung 

: 'Programmanweisungen Hauptprogramm 

END 

'Sprungmarke Fehlerbehandlung 
Behandlung: 

PRINT "Fehler im Programm!" 

RESUME NEXT 

Die Fehlermeldungen, die für den Anwender ausgegeben werden sollen, 
können mehr oder weniger umfangreich sein. In der Regel reicht es aus, 
die nichtssagenden Fehlernummern durch kurze Erläuterungen zu er¬ 
setzen. Dies werden wir auch in unserem Programm HAUSHALT tun. In 
diesem Fall belasten wir den Speicher nicht übermäßig mit Zeichenketten- 


133 







Tutorium 


konstanten. Sollen die Informationen umfangreicher sein, ist es sinnvoll, 
die Fehlermeldungen z.B. in einer sequentiellen Datei im ASCII-Format 
abzulegen. Bei Bedarf kann dann die entsprechende Fehlermeldung 
eingelesen werden. Viele kommerzielle Anwendungsprogramme lagern 
die Fehlermeldungen auf diese Art und Weise aus. Die Datei mit den 
Fehlermeldungen könnte in unserem Programm z.B. den Namen HAUS¬ 
HALT. ERR erhalten und hätte in etwa folgenden Aufbau: 

0005 unzulässiger Funktionsaufruf 
0007 Arbeitsspeicher nicht ausreichend 
0011 Division durch Null 
0025 Peripherieprobleme 

usw. 

Diese sequentielle Datei können Sie nun zeilenweise lesen. Ist die linke 
Zahl der Zeile, also VAL(LEFT$(GeleseneZeile$,4)) identisch mit der 
aufgetretenen Fehlernummer, so istdie Fehlermeldung ermittelt. Die Fehler¬ 
datei kann an dieser Stelle geschlossen und die Meldung entsprechend 
ausgegeben werden. 

Praxis 

Nachdem wir uns entschlossen haben, eine Fehlerbehandlung in unser 
Programm HAUSHALT zu integrieren und die Grundlagen nun bekannt 
sind, können wir uns wieder der Programmierung zuwenden. Dazu 
müssen wir unser Hauptprogramm ändern. Spezielle Unterprogramme 
und Funktionen werden wir in dieser Sitzung nicht entwickeln. 

Das Hauptprogramm und die Fehlerbehandlung 

Unsere Fehlermeldung soll zwar knapp, aber auch aussagekräftig sein. 
Sie soll jeweils in der untersten Bildschirmzeile über die Routine InfoZeile, 
die wir in unsere Funktionsbibliothek integriert haben, ausgegeben 
werden. Um die Meldung hervorzuheben, wollen wir spezielle Farben für 
die Ausgabe verwenden. Der Text soll in gelber Schrift auf rotem Hinter¬ 
grund ausgegeben werden. Dazu definieren wir am Programmanfang 
zunächst die Variablen vErr% und hErr% (Listing 2.8.1). Da unsere 
Fehlerbehandlung für das ganze Programm gelten soll, ist nur eine 
einmalige ON-E/?/?OR-Anweisung am Programmbeginn erforderlich. Die 
Sprungmarke erhält dabei den Namen FehlerBehondlung. 
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SINCLUDE "TOOLS.H" 'Deklarationen der Unit TOOLS 

$LINK "TOOLS.PBU" 'Benutzerbibliothek TOOLS einbinden 

'*********************************************************************** 
'* Programmname : HAUSHALT.BAS Version 1.00 * 

'* Compiler : Power Basic 2.10 * 

'* verwendete Headerdateien: TOOLS.H * 

'* verwendete Units : TOOLS.PBU * 

'* geschrieben : April/Mai 1991 * 

'* letzte Änderung : 16.05.1991 * 

> *★****************************★***********'**************★************** 


$STACK 4000 
CLS 


'Stapelspeicher erhöhen 
'Hauptprogramm HAUSHALT 


ON ERROR GOTO FehlerBehandlung 


vfarbe% = 

7 


hfarbe% = 

1 


vErr% = 

14 


hErr% = 

4 


Anzahl% = 

8 


Menue$(1) 

= 

"Dateiwahl" 

Menue$(2) 

= 

"Dateneingabe" 

Menue$(3) 

= 

"Datenauswertung 

Menue$(4) 

= 

"Druck" 

Menue$(5) 

= 

"Grafik" 

Menue$(6) 

= 

"OS-Shell" 

Menue$(7) 

= 

"Hilfe" 

Menue$(8) 

= 

"Ende" 


'Daten initialisieren 


'Menüeinträge 


Start: 

ArbeitsDatei$="keine" 

CALL Hintergrund(vfarbe%, hfarbe%) 

WHILE Wahl% <> 8 

: 'unveränderte Anweisungen des 
: 'Hauptprogramms 
WEND 

CLOSE #DNr 
COLOR 7, 0 
CLS 

PRINT "Programm beendet..." 

END 

> *********************************************************************** 

'* Fehlerbehandlung und Ereignisverfolgung * 

/*********************************************************************** 


Fehlerbehandlung: 

SELECT CASE ERR 
CASE 6 

Fehler$="Überlauf!" 

CASE 14, 201 

Fehler$="unzureichender Speicherplatz!" 
CASE 24, 25, 68, 69 
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Fehler$="Peripherie-, Schnittstellenprobleme!" 

CASE 27, 57 

Fehler$="Der Drucker ist nicht bereit!" 

CASE 51 

Fehler$="Interner Fehler!" 

CASE 70, 71, 72 

Fehler$="Probleme mit dem Laufwerk!" 

CASE 71 

Fehler$="Keine Diskette/Klappe offen!" 

CASE ELSE 

Fehler$="Fehler Nummer "+STR$(ERR)+" ist aufgetreten!" 

END SELECT 

CALL InfoZeile("Achtung: "+Fehler$, 25, vErr%, hErr%) 

CALL Warte 
RESUME Start 

Listing 2.8.1: Die Fehlerbehandlung zum Programm HAUSHALT 

Nach diesen Änderungen setzen wir die Sprungmarke Stört an das Ende 
des Initialisierungsteiles des Hauptprogramms. An dieser Stelle soll später 
die Programmausführung fortgesetzt werden, wenn ein Fehler während 
der Programmausführung auftritt. Die eigentlichen Anweisungen zur 
Fehlerbehandlung schreiben wir an das Ende des Hauptprogramms und 
vor den Teil des Quelltextes, in dem die Unterprogramme und Funktionen 
definiert sind. Wie Sie ja wissen, befinden wir uns immer noch in der 
Datei HAUSHALT.BAS. Um den Fehlerteil hervorzuheben, leiten wir ihn 
durch Kommentarzeilen ein. Tritt ein Fehler auf, wird automatisch die 
Sprungmarke FehlerBehondlung angesprungen und die SELECT-CASE- 
Anweisung ausgeführt. Die Power-Basic-Funktion ERR liefert uns die Fehler¬ 
nummer des zuletzt aufgetretenen Fehlers zurück. Abhängig von dieser 
Nummer wird dann der Variablen Fehler$ die Zeichenkette mit dem 
Fehlertext zugewiesen und über die Routine InfoZeile ausgegeben. Die 
Fehlermeldung bleibt so lange in der untersten Bildschirmzeile stehen, bis 
das Programm mit einer beliebigen Taste fortgesetzt wird (CALL Worte). 
Die /?ESL/ME-Anweisung ist dann für den Neustart des Hauptprogramms 
verantwortlich (Rücksprung zum Label Stört). 

a Beachten Sie, daß das Hauptprogramm nun mit einer END-Anweisung 
abschließen muß, da sonst beim Programmende die Anweisungen nach dem 
Label Fehlerbehandlung auch ohne Laufzeitfehler abgearbeitet werden. Beim 
Abarbeiten des RESUME-Feh\ers würde das Programm einen Fehler auslösen 
(RESUME ohne ERROR). Sie sollten jedes Hauptprogramm mit dem END-Be¬ 
fehl beenden, auch wenn dies in Power Basic nicht unbedingt erforderlich ist. 

Die Fehlerroutine können Sie sehr schnell testen, indem Sie das Programm 
mit I Alt 1 + fF~9~l [¥ 9 ] ausführen und anschließend die Druckerausgabe aus 
dem Hauptmenü des Programms HAUSHALT anwählen. Der Drucker sollte 
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dabei ausgeschaltet sein. In der untersten Zeile erscheint dann die 
Fehlermeldung, wie in Bild 2.8.1 dargestellt. 



Bild 2.8.1: 

Fehlermeldung 

bei nicht 

bereitem 

Drucker im 

Programm 

HAUSHALT 


Workshop 

Checkliste 

1. Was ist der Unterschied zwischen Laufzeit- und Syntaxfehlern? 

2. Auf welche Art und Weise lassen sich Laufzeitfehler abfangen? 

3. Erläutern Sie den Aufbau der ON-ERROR- Anweisung! 

Ideen für eigene Übungen 

• Andern Sie die Routine der Fehlerbehandlung so ab, daß die jeweilige 
benötigte Fehlermeldung aus einer sequentiellen Datei gelesen wird! 

• Überlegen Sie sich eine Möglichkeit, um die Fehlermeldungen in einer 
Direktzugriffsdatei zu speichern! 

• Andern Sie die Fehlerbehandlung so ab, daß die SELECT-CASE -Auswahl nicht 
mehr nach der Sprungmarke Fehlerbehandlung, sondern in einem getrennten 
Unterprogramm vorhanden ist! Berücksichtigen Sie dabei die Übergabepara¬ 
meter, die Sie dann für die Routine InfoZeile benötigen! 
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2 .9 Neunte Sitzung: Ein Hilfesystem gefällig? 

Die Themen dieser Sitzung: 

• Sequentielle Dateiverwaltung 

• Die EOF-Funktion 

• Realisierung eines kontext-sensitiven Hilfesystems 

• Möglichkeiten der Ereignisverfolgung 

• Der SHEÜ-Befehl 


Information 

In dieser Sitzung wollen wir die Prögrammierarbeit an unserem Projekt 
HAUSHALT beenden. Das Programm soll mit einer Hilfsfunktion versehen 
werden. Außerdem soll eine Schnittstelle zum Betriebssystem eingebaut 
werden. 

Sequentielle Dateiverwaltung 

Haben wir für unsere Dateiverwaltung in unserem Programm HAUSHALT 
mit Direktzugriffsdateien gearbeitet, werden wir das Hilfesystem mit Hilfe 
der sequentiellen Dateien realisieren. Während Direktzugriffsdateien den 
wahlfreien Zugriff auf bestimmte Datensätze erlauben, müssen wir sequen¬ 
tielle Daten in der Regel immer vom Dateibeginn bis zum Dateiende lesen. 
Außerdem können die Datensätze in einer sequentiellen Datei unterschied¬ 
liche Längen haben, was bei Randomdateien nicht der Fall ist. Wir wählen 
für unser Programm diesen Datentyp, da wir die Dateien nur lesen wollen 
und die Erstellung mit Hilfe des Power-Basic-Editors durchgeführt werden 
soll. Damit liegt die Datei im reinen ASCII-Format vor und kann direkt im 
sequentiellen Dateimodus von Power Basic verarbeitet werden. 

Im Gegensatz zu Direktzugriffsdateien gibt es für sequentielle Dateien 
keine einheitliche OPEN-Anweisung. Je nachdem, ob eine sequentielle 
Datei neu erzeugt, verlängert oder nur gelesen wird, sind unterschiedliche 
Anweisungen im Quelltext zu wählen. 
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OPEN -Anweisungen für sequentiellen Dateimodus: 

OPEN Name FOR Modus AS Nummer 

Name : Dateiname 

Nummer: Dateinummer 

Modus : INPUT - lesen 

OUTPUT - schreiben 

APPEND - schreiben 

Power Basic kennt einen sequentiellen Lesemodus und zwei Schreibmodi. 
Verwenden Sie das Schlüsselwort OUTPUT in Ihrer OPEN-Anweisung, 
wird die sequentielle Datei neu erzeugt. Das heißt, eine bereits existieren¬ 
de Datei mit demselben Namen wird zuvor gelöscht. Mit APPEND haben 
Sie die Möglichkeit, eine Datei zu verlängern. Ein eventuell bestehender 
Dateiinhalt bleibt erhalten, neue Daten werden jeweils an das Dateiende 
angefügt. Für das Programm HAUSHALT werden wir lediglich den Lese¬ 
modus verwenden. 

Um in einer sequentiellen Datei zu lesen, bzw. um sequentielle Daten in 
eine sequentielle Datei zu schreiben, stehen spezielle Anweisungen zur 
Verfügung. Diese Anweisungen sind äquivalent zu den bildschirmorien¬ 
tierten Anweisungen und benötigen lediglich die jeweilige Dateinummer 
der geöffneten sequentiellen Datei. 

Beispiele: 

sequentiell lesen : INPUT #DNr, a%, b% 

INPUT #DNr, Text$ 

LINE INPUT #DNr, Zeile$ 
sequentiell schreiben: PRINT #DNr, "Hallo" 

WRITE #DNr, 3, 7 

Wir werden uns in unserem Programm auf die Verwendung der LINE-IN- 
PUT #-Anweisung beschränken, die jeweils komplette Datensätze ein¬ 
schließlich Kommata einliest, was bei der INPUT #-Anweisung nicht der 
Fall ist. Diese interpretiert Kommata als Feldtrennzeichen. 

Erstellen Sie eine sequentielle Datei und wollen diese später wieder lesen, 
so müssen die Schreib- und Lesebefehle dem folgenden Beispiel entspre¬ 
chen. 

OPEN "TEST.DAT" FOR OUTPUT AS #1 
a%=5 
b!=3.7 

PRINT #1, a%, b! 

CLOSE #1 
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OPEN "TEST.DAT" FOR INPUT AS #1 
INPUT #1, c%, d! 

PRINT c%, d! 

CLOSE #1 

Mit diesen Grundlagen werden wir dazu in der Lage sein, ein komfor¬ 
tables Hilfesystem mit sehr wenig Programmieraufwand zu erzeugen. 

Die EOF-Funktion 

Ist es uns bei den Direktzugriffsdateien möglich, mit Hilfe der /.OF-Funktion 
das Dateiende zu ermitteln, steht uns bei den sequentiellen Dateien die 
EOF-Funktion zur Verfügung. Sie erkennt, ob die End-Of-File-Marke, die 
das Ende einer sequentiellen Datei markiert, erreicht ist. Um zum Beispiel 
eine Datei bis zur EOF-Marke zu lesen, bietet sich die Verwendung dieser 
Funktion in einer WH/LE-WENO-Schleife an. 

Beispiel: 

DNr = FREEFILE 'freie Dateinummer ermitteln 
OPEN "TEST.DAT" FOR INPUT AS #DNr 
WHILE NOT EOF(DNr) 

LINE INPUT #DNr, Zeile$ 'aus Datei lesen 
PRINT Zeile$ 'auf Bildschirm ausgeben 

WEND 

CLOSE #DNr 

Realisierung eines Hilfesystems 

Wenn wir davon ausgehen, daß eine Hilfsdatei mit speziellen Informatio¬ 
nen bereits vorliegt, stellt sich die Frage, wie und vor allen Dingen wann 
wir diese Informationen auf dem Bildschirm abrufen lassen wollen. Die 
einfachste Möglichkeit besteht darin, eine Hilfsfunktion in unser Auswahl¬ 
menü zu integrieren und von dort einen Hilfe-Index auszugeben. Aus 
diesem Index können wir dann ein entsprechendes Thema wählen, zu 
dem wir nähere Informationen benötigen. Diesen Weg wollen wir auch 
in unserem Programm HAUSHALT gehen. 

Damit haben wir aber auch schon die Grundlage für ein kontextsensitives 
Hilfesystem gelegt. Jede Hilfsinformation steht in einem engen Zusammen¬ 
hang mit einem speziellen Schlüsselwort. Theoretisch könnten wir über 
jedes Schlüsselwort direkt auf eine spezielle Hilfe zugreifen. Kontextsen¬ 
sitiv meint dabei, daß, je nachdem, wann die Hilfe angefordert wird, eine 
unterschiedliche Information erscheint. Befinde ich mich z.B. bei der 
Dateneingabe, so bekomme ich Informationen zur Dateneingabe und 
möglichen Tastaturkommandos. Lasse ich hingegen eine grafische Aus- 
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Wertung vornehmen, erhalte ich nähere Informationen zur Grafik selbst. 
Kommerzielle Programme stellen in der Regel beide Möglichkeiten zur 
Verfügung. 

Power Basic bietet sowohl eine kontextsensitive Menühilfe als auch eine 
indexorientierte Hilfsfunktion für den Sprachumfang und die Tastatur¬ 
kommandos an. Die erste Hilfeform steht zur Verfügung, wenn man sich 
im Menü befindet, die zweite, wenn Quelltexte bearbeitet werden. 

Wir werden die Hilfe für das Programm HAUSHALT auf kurze Informatio¬ 
nen für die einzelnen Menüeinträge beschränken. 

Die Ereignisverfolgung als Alternative 

Um die kontextsensitive Hilfe zu programmieren, können Sie die Ereignis¬ 
verfolgung von Power Basic nutzen. Über ON KEY(l) GOSUB Hilfe 
würden Sie zum Beispiel beim Drücken der CED-Taste automatisch an eine 
Sprungmarke Hilfe gelangen, die die Hilfsinformation aufbereitet. Um die 
Funktionstaste ein- bzw. auszuschalten, verwenden Sie die Befehle KEY( 1) 
ON bzw. KEY(l) OFF. Power Basic erzeugt den Code zur Tastaturüber¬ 
wachung automatisch. 

Neben speziellen Tasten können auch weitere Ereignisse in Power Basic 
verfolgt werden, wie z.B. der Dateneingang der seriellen Schnittstelle. 
Genauere Informationen erhalten Sie im Referenz-Handbuch unter den 
Schlüsselwörtern, die in der Tabelle 2.9.1 aufgeführt sind. 


Ereignis 

Erläuterung 

ON KEY 

ON PEN 

ON PLAY 

ON STRIG 

ON TIMER 

Tastaturverfolgung 

Statusänderung eines Lichtgriffels verfolgen 

Musikpufferstatus verfolgen 

Joystick verfolgen 
zeitabhängige Befehlsausführung 


Tabelle 2.9. 7 ; Ereignisverfolgung in Power Basic 


Damit die Information jeweils zur aktuellen Programmausführung paßt, 
müssen Sie eine Steuerungsvariable Hilfe$ einführen. Dieser Hilfsvaria¬ 
blen könnte in diesem Fall das Schlüsselwort zur jeweils passenden 
Hilfsinformation zugewiesen werden. Befinden Sie sich in der Grafik¬ 
routine, ergibt sich z.B. die Zuweisung Hilfe$="Grafik"; befinden Sie sich 
bei der Dateneingabe, so ergibt sich die Zuweisung Hilfe$="Dotenein- 
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gäbe”. Diese Zuweisung erspart die Auswahl aus dem Index, da der 
Hilfsbegriff bereits festgelegt wurde. 

Eine Schnittstelle zum Betriebssystem 

Mit dem SHELL -Befehl stellt Power Basic eine Anweisung zur Verfügung, 
um ein Anwendungsprogramm temporär zu verlassen und auf Betriebssy¬ 
stemebene zurückzukehren. Dabei verbleibt das Programm selbst im 
Arbeitsspeicher. Dieser Befehl kann nur ausgeführt werden, wenn der 
Arbeitsspeicher genügend groß ist, um eine Kopie des Kommandoprozes¬ 
sors COMMAND.COM nachzuladen. Um später wieder in das Anwen¬ 
dungsprogramm zurückzukehren, braucht nach dem Systemprompt ledig¬ 
lich der Befehl EXIT eingetastet zu werden. 

Betriebssystemebene: 

C:\>EXIT | Return] 

Wird SHELL ohne Parameter aufgerufen, gelangt man direkt zur Betriebs¬ 
systemebene, wie oben beschrieben. Man hat allerdings auch die Mög¬ 
lichkeit, an diesen Befehl direkt einen Kommandostring zu übergeben, der 
unmittelbar ausgeführt werden soll. Stellen Sie sich vor, Sie wollen die 
Datei TEST.DAT über den SHELL -Befehl löschen. Dieses wäre mit der 
Anweisung SHELL "DEL TEST.DAT" möglich. Der Rückschritt zum Betriebs¬ 
system erfolgt in diesem Fall nur zeitweilig, d.h., nach der Befehlsaus¬ 
führung befinden Sie sich automatisch wieder in Ihrem Anwendungs¬ 
programm. 


Bild 2.9.1: 

Die 

Betriebssystem¬ 
ebene 

Ißf 3 Beachten Sie, daß diverse Befehle, die über SHELL aufgerufen werden, 
eigenständig Bildschirmausgaben vornehmen, die unter Umständen Ihre 


zur Rückkehr zun Progrann bitte EXIT eintasten... 

DR DOS Release 5.0 

Copyright <c> 1976,1382,1988 Digital Research Inc. Alle Rechte uorbehalten. 
Licensed to UOBIS Data Conputer GnbH, Aachen "HIGHSCREEN<Th>". 

C:\UORD>EXIT 


142 






Tutorium 


eigene Bildschirmoberfläche zerstören. Um dies zu umgehen, können Sie 
das DOS-Piping einsetzen, das wir unter dem Kapitel »Kniffe, Tips und andere 
Spezialitäten« vorstellen werden. 


Praxis 

Bevor wir die letzten Änderungen in unserem Hauptprogramm vorneh¬ 
men, wollen wir in dieser Sitzung zunächst eine Hilfsdatei erstellen. 
Anschließend werden wir die Hilfsfunktion und die Schnittstelle zum 
Betriebssystem in unser Hauptprogramm integrieren. 

Eine Hilfsdatei entsteht 

Um eine neue Datei in Power Basic zu erzeugen, wählen Sie über |fio| 
File —► New. Anschließend geben wir den Hilfstext ein (Listing 2.9.1). Sie 
sehen, daß jedes Schlüsselwort in eckigen Klammern eingefaßt und mit 
Großbuchstaben geschrieben ist. Jede Hilfsinformation zu einem bestimm¬ 
ten Begriff wird durch ein Doppelkreuz abgeschlossen. Damit können wir 
später eine Interpretation der sequentiellen Datei realisieren. Da die 
Ausgaben der Hilfe später in einem Bildschirmfenster erscheinen sollen, 
ist darauf zu achten, daß jede Zeile höchstens 76 Zeichen lang sein darf, 
um mit einem Rahmen versehen werden zu können. 

Inhalt der Hilfsdatei HAUSHALT.HLP: 

[MENUE] 

Menü-Hilfe: 

Bevor Sie die einzelnen Menüeinträge anwählen 
können, müssen Sie zunächst eine Arbeitsdatei 
auswählen. Der Name der derzeit aktiven 
Arbeitsdatei wird in der unteren Zeile angezeigt. 

# 

[DATEIWAHL] 

Dateiwähl-Hilfe: 

Ist noch keine Arbeitsdatei angelegt, wird automatisch 
die Datei HAUSHALT.DAT angelegt. Ansonsten können Sie 
auch eine neue Datei erzeugen. Das Programm kann in 
dieser Version maximal 10 Dateien verwalten. 

# 

[DATENEINGABE] 

Eingabe-Hilfe: 

Sie können zu jeder Buchung einen Kommentar und eine 
positive oder negative Buchungssumme eingeben. Als 
Buchungsdatum wird das interne Systemdatum gesetzt. 

Spezielle Datierungen sind im Kommentarfeld mit unter¬ 
zubringen. Je Datei können maximal 500 000 Buchungen 
vorgenommen werden. In einer Datei können mehrere 
Buchungsjahre erfaßt werden. 
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# 

[AUSWERTUNG] 

Auswertung: 

Die Auswertung der Datentypen erfolgt mit einfacher 
Genauigkeit und bezieht sich jeweils auf ein bestimmtes 
einzelnes Buchungsjahr. Die jeweiligen Endergebnisse werden 
auf zwei Nachkommastellen gerundet. Mit dem Menüpunkt DRUCK 
können die einzelnen Buchungen und die Endergebnisse in 
Tabellenform ausgegeben werden. Eine grafische Darstellung 
der Endergebnisse ist mit dem Menüpunkt GRAFIK möglich. 

# 

[DRUCKER] 

Drucker-Hilfe: 

Bei der Druckerausgabe werden keine speziellen Steuercodes 
verwendet. Eine Ausgabe ist auf jedem Matrix- und Laserdrucker 
möglich. Tritt ein Fehler auf (z.B. Papierstau), so wird die 
Ausgabe beendet und unmittelbar in das Hauptmenü zurückgekehrt. 

# 

[GRAFIK] 

Grafik-Hilfe: 

Die grafische Ausgabe besteht aus zwei Teilen. Zunächst werden 
die monatlichen Salden in einem Liniendiagramm aufgetragen, 
um die Gewinne und Verluste zwischen den Monaten eines Jahres 
sehr schnell und anschaulich vergleichen zu können. In einem 
Kreisdiagramm werden dann die Ausgabensumme und die Gewinnsumme 
für den gesamten Buchungszeitraum dargestellt. 

Listing 2.9.1: Die ASCII-Datei HAUSHALT.HLP 

Nachdem der Text eingegeben worden ist, müssen wir ihn in einer neuen 
Datei speichern. Um die Verbindung zu unserem Programm HAUSHALT 
zu verdeutlichen und zu zeigen, daß es sich um eine Hilfsdatei handelt 
(Dateikürzel .HLP), wählen wir den Namen HAUSHALT.HLP. Diesen 
Namen geben wir ein, nachdem wir mit IfioI File -+ Write to das 
entsprechende Eingabefenster von Power Basic geöffnet haben. Unsere 
Eingabe quittieren wir mit IReturn 1 . |m Anschluß daran kehren wir über 
[Alt l + fF3l in das Programm HAUSHALT.BAS zurück. 

Das Hauptprogramm wird vollendet 

Nun können wir die letzten Änderungen an unserem Programm HAUS¬ 
HALT vornehmen. Zunächst fügen wir die Anweisungen für den SHELL- 
Befehl ein, den wir über den sechsten Menüpunkt aktivieren wollen. Dazu 
schalten wir zunächst in einen Monochrommodus (weiße Schrift auf 
schwarzem Hintergrund) und löschen den Textbildschirm mit unserer 
Oberfläche. Danach schreiben wir die Information auf den Bildschirm, 
wie in das Programm HAUSHALT zurückgekehrt werden kann. Bedenken 
Sie, daß für den Anwender später nicht mehr erkennbar ist, ob sich das 
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Programm noch im Speicher befindet oder nicht. Um den Einbau einer 
späteren Ereignisverfolgung zu erleichtern, werden wir die Hilfsfunktion 
nach einem Sprunglabel in unser Programm eingeben. Wir fügen es 
unmittelbar nach der Fehlerbehandlungsroutine in unseren Quelltext ein 
(Listing 2.9.2). Das bedeutet, daß wir dieses Label über einen GOSUß- 
Befehl anspringen (GOSUB Hilfe). Nachdem wir die SELECT-CASE- Aus¬ 
wahl abschließend bearbeitet haben, können wir nun die Hilfsroutine 
erstellen. 

$INCLUDE "TOOLS.H" 'Deklarationen der Unit TOOLS 

$LINK "TOOLS.PBU" 'Benutzerbibliothek TOOLS einbinden 

/*********************************************************************** 

'* Programmname : HAUSHALT.BAS Version 1.00 * 

'* Compiler : Power Basic 2.10 * 

'* verwendete Headerdateien: TOOLS.H * 

'* verwendete Units : TOOLS.PBU * 

'* geschrieben : April/Mai 1991 * 

'* letzte Änderung : 16.05.1991 * 

> *********************************************************************** 


$STACK 4000 'Stapelspeicher erhöhen 

CLS 'Hauptprogramm HAUSHALT 


ON ERROR GOTO FehlerBehandlung 


vfarbe% = 

7 


hfarbe% = 

1 


vErr% 

14 


hErr% 

4 


Anzahl% = 

8 


Menue$(1) 

= 

"Dateiwahl" 

Menue$(2) 

= 

"Dateneingabe" 

Menue$(3) 

= 

"Datenauswertung 1 

Menue$(4) 

= 

"Druck" 

Menue$(5) 

= 

"Grafik" 

Menue$(6) 

= 

"OS-Shell" 

Menue$(7) 

= 

"Hilfe" 

Menue$(8) 

= 

"Ende" 


'Daten initialisieren 


'Menüeinträge 


Start: 

ArbeitsDatei$="keine" 

CALL Hintergrund(vfarbe%, hfarbe%) 

WHILE Wahl% <> 8 

CALL InfoZeile("HAUSHALT Version 1.00 - Einnahmen-"+_ 

"/Ausgabenüberschußrechnung", 1, vfarbe%, hfarbe%) 
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CALL InfoZeile(CHR$(24)+CHR$(25)+”: Anwahl Menüeintrag RETURN:" + 
" Menüauswahl Arbeitsdatei: ”+ ArbeitsDatei$ +_ 
Space$(12) / 25, vfarbe%, hfarbe%) 

CALL Auswahl(Menue$(), Anzahl%, vfarbe%, hfarbe%, Wahl%) 

SELECT CASE Wahl% 

CASE 1 'Arbeitsdatei wählen und öffnen 
IF ArbeitsDatei$ <> "keine" THEN 
CLOSE #DNr 
END IF 

CALL DateiNamen(Namen$(), vfarbe%, hfarbe%, Datei%) 
ArbeitsDatei$ = Namen$(Datei%) 

DNr = FREEFILE 

OPEN ArbeitsDatei$ FOR RANDOM AS #DNr LEN=50 
CASE 2 'Dateneingabe 

IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 

CALL DatenEingabe(DNr, vfarbe%, hfarbe%) 

END IF 

CASE 3 'Datenauswertung 

IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 

CALL DatenAuswertung(1, DNr, vfarbe%, hfarbe%) 

END IF 

CASE 4 'Ergebnisse ausdrucken 

IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 

CALL DatenAuswertung(2, DNr, vfarbe%, hfarbe%) 

END IF 

CASE 5 'Grafik 

IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 

CALL DatenAuswertung(3, DNr, vfarbe%, hfarbe%) 

END IF 

CASE 6 'Tools (OS-Shell) 

COLOR 7,0 
CLS 

PRINT "zur Rückkehr zum Programm bitte EXIT eintasten..." 
SHELL 

CALL Hintergrund(vfarbe%, hfarbe%) 

CASE 7 'Hilfsfunktion 

GOSUB Hilfe 
CASE ELSE 
END SELECT 

WEND 

CLOSE #DNr 
COLOR 7, 0 
CLS 

PRINT "Programm beendet..." 

END 
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> *********************************************************************** 

'* Fehlerbehandlung und Ereignisverfolgung * 

r *********************************************************************** 

Fehlerbehandlung: 

SELECT CASE ERR 
CASE 6 

Fehler$="Überlauf!" 

CASE 14, 201 

Fehler$="unzureichender Speicherplatz!" 

CASE 24, 25, 68, 69 

Fehler$="Peripherie-, Schnittstellenprobleme!" 

CASE 27, 57 

Fehler$="Der Drucker ist nicht bereit!" 

CASE 51 

Fehler$="Interner Fehler!" 

CASE 70, 71, 72 

Fehler$="Probleme mit dem Laufwerk!" 

CASE 71 

Fehler$="Keine Diskette/Klappe offen!" 

CASE ELSE 

Fehler$="Fehler Nummer "+STR$(ERR)+" ist aufgetreten!" 

END SELECT 

CALL InfoZeile("Achtung: "+Fehler$, 25, vErr%, hErr%) 

CALL Warte 
RESUME Start 

Hilfe: 

CALL InfoZeile("Wählen Sie ein Thema, zu dem Sie Informationen"+_ 

" wünschen...", 25, hfarbe%, vfarbe%) 

CALL HinterGrund(vfarbe%, hfarbe%) 

Help$(1)="MENUE" : Help$(2)="DATEIWAHL" 

Help$(3)="DATENEINGABE" : Help$(4) = "AUSWERTUNG" 

Help$(5)="DRUCKER" : Help$(6)="GRAFIK" 

CALL Auswahl(Help$(), 6, hfarbe%, vfarbe%, X%) 

HilfeBegriff$=RTRIM$(Help$(X%)) 

CALL Hintergrund(vfarbe%, hfarbe%) 

HNr = FREEFILE 

OPEN "HAUSHALT.HLP" FOR INPUT AS #HNr 
HAnz%=0 

WHILE NOT EOF(HNr) 

LINE INPUT #HNr, Zeile$ 

IF INSTR(Zeile$, "["+HilfeBegriff$+"]") > 0 THEN 
WHILE Left$(Help$(HAnz%),1)<>"#" 

HAnz%=HAnz%+l 

LINE INPUT #HNr, Help$(HAnz%) 

WEND 
END IF 
WEND 

CALL Auswahl(Help$(), HAnz%-l, hfarbe%, vfarbe%, 0) 

CLOSE #HNr 

CALL Hintergrund(vfarbe%,hfarbe%) 

RETURN 

Listing 2.9.2: Das vollendete Hauptprogramm 
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Wir haben für unseren Index lediglich sechs Begriffe zu berücksichtigen, 
die nach der Sprungmarke Hilfe initialisiert werden. Mit der Routine 
Auswahl bringen wir diese Begriffe auf den Bildschirm. Sie sehen, wie 
vielseitig einsetzbar unsere allgemeine Auswahlroutine ist. Während der 
späteren Programmausführung stellt sich der Bildschirm wie in Bild 2.9.1 dar. 


Bild 2.9.2: 

Der Hilfe-Index 

Um den Hilfsbegriff zu ermitteln, spalten wir die Leerzeichen des gewähl¬ 
ten Menüeintrages ab, die durch die Auswahlroutine angefügt wurden 
(RTRIM$-Funktion). Nachdem der Hilfsbegriff bekannt ist, können wir ihn 
in der sequentiellen Datei HAUSHALT.BAS suchen lassen. Beachten Sie, 
daß der Vergleich in unserer Routine nicht zwischen Klein- und Groß¬ 
schreibung unterscheidet. (Hilfsbegriffe des Index sind nach der Sprung¬ 
marke Hilfe und in der Hilfsdatei HAUSHALT.HLP in Großschrift definiert 
und werden auf Gleichheit überprüft.) Die Begriffe, die als Index definiert 
sind, müssen also unbedingt in Großbuchstaben definiert sein. 

Über die Funktion FREEFILE ermitteln wir zunächst eine freie Dateinummer, 
die wir in unserer OPEN-Anweisung verwenden. Um die Datei zu lesen, 
ist unbedingt der /NPUT-Modus zu wählen. Erinnern Sie sich daran, daß 
der OUTPUT -Modus Ihre Hilfsdatei zerstört und eine neue Eingabe der 
Datei erforderlich machen würde. Da unsere Datei recht klein ist und der 
komplette Lesevorgang nur wenig Zeit in Anspruch nimmt, werden wir die 
Daten bei jeder Hilfeanforderung erneut aus der Datei lesen. Der Lesevor¬ 
gang selbst erfolgt, wie bereits im Informationsteil angeführt, mit Hilfe 
einer WH/LE-WEND-Schleife unter Verwendung der EOP-Funktion. 

Diese Schleife liest die Hilfsdatei so lange zeilenweise ein, bis der 
Hilfsbegriff gefunden wurde. Danach wird eine zweite WHILE-WEND- 


hfiBn-/'HuscjabDn»bnrscliuprDchnung 


DATEIUAHL 
DATENEINGABE 
AUSUERTUNG 
DRUCKER 
GRAFIK 


Uählen Sie ein Thewa, zu den Sie Infornationen uünschen.. 
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Schleife aktiv, die das Datenfeld Help$() mit passenden Textzeilen zu 
diesem Hilfsbegriff aufbaut. Der Abbruch erfolgt in diesem Fall durch das 
Doppelkreuz in der Hilfsdatei. Auch wenn das Doppelkreuz erreicht 
wurde, wird der Rest der Datei bis zum Dateiende abgearbeitet. Dafür ist 
dann wieder die äußere VVH/Lf-VV/iND-Schleife verantwortlich. 



Ist noch keine Arbeitsdatei angelegt, uird autoMatisch 
die Datei HAUSHALT.DAT angelegt. Ansonsten können Sie 
auch eine neue Datei erzeugen. Das Progrann kann in 
dieser Uersion naxinal 10 Dateien uerualten. 


Uählen Sie ein Thema, zu den Sie Infornationen uiinschen. . . 


Bild 2.9.3: 
Hilfstext zum 
Menüpunkt 
Datei wähl 


In den Bildern 2.9.2 und 2.9.3 sind spezielle Bildschirmausgaben zu 
sehen, die von unserer Hilfsfunktion ausgegeben werden. Auch hier 
verwenden wir zur Darstellung des Textes die Routine Auswahl - auch, 
wenn wir in diesem Fall keine Menüauswahl vornehmen. Der verschieb¬ 
bare Balken kann dabei allerdings als Lesezeichen verwendet werden. 




1.00 - Einnahnen-/'Ausgabenüberschuprechnung 


Die grafische Ausgabe besteht aus zuei Teilen. Zunächst uerden 
die Monatlichen Salden in einen LiniendiagraMM aufgetragen, 
um die Geuinne und Uerluste zuischen den Monaten eines Jahres 
sehr schnell und anschaulich uergleichen zu können. In einen 
KreisdiagranM uerden dann die AusgabensuMne und die Geuinnsunne 
für den gesanten Buchungszeitraun dargestellt. 


Uählen Sie ein Thena, zu den Sie Infornationen uiinschen. . . 


Bild 2.9.4: 
Hilfstext zum 
Menüpunkt 
Grafik 


Da die Hilfsdatei jedesmal erneut geöffnet wird, müssen wir sie abschlie¬ 
ßend wieder schließen. Eine bereits geöffnete Datei darf nicht zweimal 
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geöffnet werden, da sonst der Laufzeitfehler 55 auftritt (»Datei bereits 
geöffnet«). Über RETURN kehren wir abschließend in die Hauptschleife 
des Hauptprogramms zurück. Mit diesen Anweisungen ist unser Pro¬ 
gramm fertiggestellt. In unserer nächsten Sitzung werden wir uns mit der 
Testphase und der Erstellung des Maschinenprogramms befassen. 

Workshop 

Checkliste 

1. Erläutern Sie den sequentiellen Dateimodus! 

2. Was sind die wesentlichen Unterschiede zwischen Direktzugriffsdateien und 
sequentiellen Dateien? 

3. Was verstehen Sie unter Ereignisverfolgung? 

4. Welche Möglichkeiten bietet der SHELL -Befehl von Power Basic? 

5. Was bedeutet kontextsensitive Hilfe? 

6. Wie können Sie vermeiden, daß Sie über das Ende einer sequentiellen Datei 
hinaus lesen und damit einen Laufzeitfehler erzeugen? 


Ideen für eigene Übungen 

• Erweitern Sie das Programm HAUSHALT so, daß Sie bereits vor der Ausführung 
des SHELL -Befehls die Möglichkeit haben, einen beliebigen Befehl für das 
Betriebssystem einzugeben. Verwenden Sie hierzu die in unserer Funktionsbi¬ 
bliothek erstellte Routine Eingabel 

• Optimieren Sie die geschachtelte WH/LE-WEND-Konstruktion für die Hilfsfunk¬ 
tion soweit, daß der Lesevorgang jedesmal nach dem ersten Doppelkreuz 
beendet wird! 

• Stellen Sie die Routine zur Ausgabe der Hilfsinformation so um, daß das 
Einlesen der gesamten Hilfsdatei nur einmal erfolgt. Verwenden Sie dazu ein 
Zeichenketten-Datenfeld, das beim Aufruf der Hilfsfunktion entsprechend der 
Datei durchsucht wird! 

• Schreiben Sie ein kleines Programm und verwenden Sie die bereits vorhande¬ 
ne Hilfsdatei und die Anweisungen zur Hilfsfunktion aus dem Programm 
HAUSHALT. Lassen Sie mit Hilfe der Ereignisverfolgung über die Funktionstaste 
I F1 1 (Tastaturcode CHR$(59)) unser en Hil fe-Index ausgeben. Beenden Sie das 
Programm durch die Funktionstaste IF1Q1 (Tastaturcode CHR$(68). 
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2 » 10 Zehnte Sitzung: 

Das Maschinenprogramm entsteht 

Die Themen dieser Sitzung: 

• Testphase 

• Ausführbare Programmdateien 

• Ausnutzung der Compiler-Optionen 

• Ausnutzung der Linker-Optionen 

• Programmweitergabe 


Information 

In dieser letzten Sitzung wollen wir abschließend aus unserem Quelltext, 
den wir in unseren Power-Basic-Editor eingegeben haben, ein eigenstän¬ 
dig ablauffähiges Programm erzeugen. Das Programm soll aber nicht nur 
ohne das Power-Basic-Entwicklungssystem einsetzbar sein, sondern auch 
für einen entsprechenden Rechner in Geschwindigkeit und Programm¬ 
größe optimiert werden. 

Die Testphase 

Sie sollten, falls Sie Ihr Programm an Dritte weitergeben, zunächst eine 
Phase einlegen, in der Sie Ihr Programm ausgiebig testen. Auch wenn Ihr 
Programm auf den ersten Blick scheinbar korrekt arbeitet, kann es dennoch 
interne Fehler beinhalten. Die Testphase kann, je nach Programm, 
unterschiedlich gestaltet sein. Nehmen wir an, Sie haben ein Programm 
für mathematische Berechnungen programmiert. Kontrollieren Sie das 
Programm mit Beispielrechnungen, die Sie bereits per Hand berechnet 
haben, oder durch Rechnungen, deren Ergebnisse Sie genau kennen. 
Nehmen Sie unbedingt immer die Sonderfälle eines Problems, nicht nur 
Standardaufgaben. Lassen Sie Ihr Programm auch ruhig einmal von einer 
unbeteiligten Person ausführen. Sind im Programm spezielle Grenzen 
gesetzt, wie z.B. für eine maximale Datensatzanzahl, so überprüfen Sie, 
ob das Programm auch in diesem Grenzbereich korrekt arbeitet. 
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Natürlich kann auch die ausgiebigste Testphase nicht sämtliche Fehler 
ausräumen. Auch in kommerziellen Programmen treten hin und wieder 
Fehler auf. 

Ausführbare Programmdateien 

Das Betriebssystem kennt zwei Typen von ausführbaren Programmdatei¬ 
en. Da sind zunächst die COM-Dateien, die eine maximale Größe von 
64 Kbyte im Speicher einnehmen dürfen, und zum anderen die EXE- 
Dateien, die den gesamten Arbeitsspeicher nutzen können. Power Basic 
erlaubt die Erstellung von EXE-Dateien aus Power-Basic-Quelltext, d.h., die 
Programme, die mit Power Basic erstellt werden, können den gesamten 
Arbeitsspeicher nutzen. 

Die Arbeit, die das Programmentwicklungssystem leisten muß, ist hinter 
einer Oberfläche versteckt und läßt sich nur anhand der Menüeinträge 
erahnen. Ein Quelltext wird in mehreren Schritten übersetzt. Zunächst 
wandelt der Compiler das Programm in Maschinensprache um und fügt 
Sprungmarken für die Bibliotheksfunktionen ein. Der Linker löst im zweiten 
Schritt diese Marken durch die Verbindung mit der Laufzeitbibliothek auf. 
Sämtliche Arbeitsgänge verlaufen im Hintergrund. Überden Menüeintrag 
Options kann der Programmierer diese Arbeitsschritte weitreichend be¬ 
einflussen. 

Compiler-Optionen 

Über die Compiler-Optionen hat der Programmierer die Möglichkeit, den 
generierten Code zu beeinflussen. Werden die Optionen nicht korrekt 
gesetzt, kann es durchaus sein, daß das Programm auf Ihrem Rechner 
nicht mehr lauffähig ist. 

Die Möglichkeit, die Einstellungen für den Compiler zu ändern, sollten Sie 
insbesondere nutzen, wenn Sie über einen Coprozessor oder einen 
80286- oder höheren Hauptprozessor verfügen. Dann wird das erzeugte 
Maschinenprogramm kleiner in der Programmgröße und schneller in der 
Ausführungsgeschwindigkeit. 

Zwei weitere wichtige Optionen wollen wir an dieser Stelle nennen. 
Arbeiten Sie mit Datenfeldern, so können Sie die Standarddimensionie¬ 
rung mit der Option Arroy outo-dim On auf zehn Feldelemente festlegen. 
Diese Möglichkeit haben wir auch im Programm HAUSHALT genutzt. 
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Bedenken Sie, wenn Datenfelder mehr als zehn Elemente enthalten sollen, 
ist unbedingt eine D/M-Anweisung erforderlich. 

Wenn Sie die Option Control-Break testing On einsetzen, können Sie Ihr 
Programm bei sämtlichen Programmein- und -ausgaben durch die Tasten¬ 
kombination I ctril + I Break 1 bzw. [ strg 1 + 1 untbr ) abbrechen und zur 
Betriebssystemumgebung zurückgelangen. Ohne diese Option ist ein 
vorzeitiger Programmabbruch nicht möglich. 

Linker-Optionen 

Mit Hilfe der Linker-Optionen können Sie die Programmgröße bei der 
Code-Erzeugung reduzieren. Wie bereits erwähnt, beinhaltet Power Basic 
eine sogenannte Laufzeitbibliothek, die in jedes Maschinenprogramm mit 
eingebunden wird. Hierin sind die Standardanweisungen wie z.B. LINE, 
LPRINT usw. in Maschinensprache enthalten. Nun ist es allerdings nicht 
notwendig, die Grafikroutinen in eine reine textorientierte Anwendung, 
die Druckerausgabe in einem rein bildschirmorientierten Programm oder 
aber Routinen für die serielle Schnittstelle in ein Programm einzubauen, 
das diese Schnittstelle gar nicht nutzt. Der Programmierer hat nun die 
Möglichkeit, die Optionen so zu setzen, daß nicht benötigte Teile der 
Laufzeitbibliothek in das Programm nicht mit eingebunden werden. 

Programmweitergabe 

Bei jeder Software sind spezielle rechtliche Bestimmungen zu berücksich¬ 
tigen, die an dieser Stelle kurz behandelt werden sollen. Nachdem Sie 
Power Basic rechtmäßig erworben, und sich registrieren ließen, können 
Sie Programme mit Power Basic entwickeln. Beachten Sie, daß eine 
Weitergabe dieses Entwicklungssystemes nicht zulässig ist. Power Basic 
erlaubt Ihnen neben der Erstellung von Quelltexten die Erzeugung ausführ¬ 
barer Programmdateien. Handelt es sich bei den Quelltexten um Ihr 
eigenes geistiges Eigentum, können Sie entscheiden, ob Sie den Quelltext 
oder nur das ausführbare Programm weitergeben. 

In der Regel werden Sie den Quelltext behalten und nur das Maschinen¬ 
programm vertreiben. Auf diesem Wege können Sie verhindern, daß 
andere Programmierer Ihren Quelltext ungewollt verändern oder auch 
weiterentwickeln. 
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Praxis 

Wir wollen nun unser Programm HAUSHALT.BAS in das ausführbare 
Maschinenprogramm übersetzen. Dabei gehen wir davon aus, daß unser 
Rechner entweder übereinen 80286-, 80386-oder 80486-Hauptprozes- 
sor verfügt und mit einer VGA-Grafikkarte ausgestattet ist. 

Der Compiler 

Wir befinden uns immer noch in der integrierten Entwicklungsumgebung 
von Power Basic. Um den Editor zu verlassen und wieder in die Menüleiste 
zu gelangen, betätigen wir die Funktionstaste IfioI . Anschließend öffnen 
wir über die Menüfolge Options —► Compiler das Auswahlfenster für die 
Compiler-Optionen (Bild 2.10.1). 



Bild 2.10.1: 

Compiler- 

Optionen 


An dieser Stelle wählen wir Generated Code IReturn] und anschließend 
aus einem weiteren Fenster den 80286-Eintrag aus. Alle übrigen Optio¬ 
nen sind in der Regel standardmäßig gesetzt und brauchen nicht geändert 
zu werden. Wenn wir davon ausgehen, daß unser Programm fehlerfrei 
läuft, können wir zur Reduzierung der erzeugten Code-Größe die Fehler¬ 
tests (Error test) ausschalten. Ansonsten generiert der Compiler zusätz¬ 
lichen Programmcode für spezielle Prüfroutinen. 


Der Linker 

Wie wir bereits erwähnt haben, ist unser Programm bei den Grafikaus¬ 
gaben speziell an den VGA-Modus angepaßt. Da wir daher keine 
Unterstützung anderer Grafikkarten in unserem Programm benötigen, 
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werden wir nun die Linker-Optionen entsprechend umstellen. Dazu rufen 
wir über die Menüfolge Options —► Linker das Fenster mit den Linker- 
Optionen auf. Wählen wir nun den Eintrag Video cords, können wir je 
nach Bedarf Routinen für bestimmte Grafikkarten aktiv oder inaktiv 
schalten. In unserem Fall setzen wir die Karten CGA, EGA und Here auf 
Off (Bild 2.10.2). 



Bild 2.10.2: 
Linker-Optionen 


Im Anschluß daran sollte auch der Eintrag Serial Communications auf Off 
gestellt werden, da in unserem Programm HAUSHALT.EXE keine An¬ 
weisungen für die serielle Schnittstelle benötigt werden. 

Das Maschinenprogramm entsteht 

Nachdem sowohl die Optionen des Compilers als auch des Linkers 
eingestellt sind, können wir endlich das endgültige Maschinenprogramm 
erzeugen lassen. Dazu müssen wir zunächst kontrollieren, ob das 
Maschinenprogramm nicht im Speicher, sondern als EXE-Datei erstellt 
wird (Bild 2.10.3). Über Compile —► Destination —► EXE file können wir, 
falls nötig, diese Umstellung vornehmen. Anschließend starten wir den 
Compiler mit (Aitl + pr9l . In einem Bildschirmfenster wird der aktuelle 
Arbeitsstand und die fehlerfreie Übersetzung nach der Fertigstellung 
angezeigt. Danach können Sie Power Basic mit File —► Quit oder der 
Tastenkombination (Ait] + fx1 verlassen. Achten Sie darauf, daß Sie den 
letzten Arbeitsstand der Datei HAUSHALT.BAS spätestens bei der Sicher¬ 
heitsabfrage von Power Basic speichern. 
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Bild 2.10.3: 
Compile to EXE 

Damit haben wir unser Programm fertiggestellt. Bei diesem Projekt haben 
Sie bereits eine ganze Menge von Power Basic kennengelernt. Mit Ihrem 
Wissen sind Sie nun in der Lage, umfangreiche und ansprechende 
Programme eigenständig zu entwickeln. 

Workshop 

Checkliste 

1. Wozu dient die Testphase bei der Programmentwicklung? 

2. Welche Möglichkeiten bieten sich über die Compiler-Optionen? 

3. Welche Möglichkeiten ergeben sich durch die Linker-Optionen? 

4. Was sind ausführbare Programmdateien? 

5. Erläutern Sie die Vorgehensweise zur Erstellung eines Maschinenprogramms! 



Ideen für eigene Übungen 

• Erstellen Sie ein Programm, das einen kurzen Text auf dem Bildschirm ausgibt. 
Das Programm soll durch Betätigen einer beliebigen Taste beendet werden. 
Übersetzen Sie anschließend dieses Programm in eine ausführbare Programm¬ 
datei. Stellen Sie die Compiler- und Linker-Optionen so ein, daß die Programm¬ 
größe minimal wird, das Programm aber dennoch auf Ihrem Rechner lauffähig 
bleibt! Sie können hierzu mehrere EXE-Dateien erzeugen und die Programm¬ 
größe über das Betriebssystem-Kommando DIR direkt vergleichen. 
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Kapitel 3: 
Know-how 


In unserem dritten Kapitel wollen wir uns mit einigen Besonderheiten von 
Power Basic beschäftigen. Neben den Fehlermeldungen werden wir uns 
mit speziellen Programmierthemen, dem Kommandozeilen-Compiler und 
nützlicher Zusatzsoftware befassen. 

3 0 1 Fehlerbeseitigung 

Wie wir in Kapitel 2.9 bereits gelernt haben, erkennt Power Basic 
selbständig eine Vielzahl von Fehlern. Unterschieden wird zwischen den 
Laufzeitfehlern und den Syntaxfehlern. Werden die Syntaxfehler vom 
Compiler direkt beim Übersetzungsvorgang erkannt, sind die Laufzeit¬ 
fehler nur schwer zu beseitigen. Zunächst wollen wir aber bei den 
Compiler- bzw. Syntaxfehlern bleiben. Die nachfolgende Liste gibt zusam¬ 
mengefaßt die wichtigsten Fehlermeldungen des Compilers wieder. 

401-405: Ausdruck oder Befehlsfolge zu komplex 

Zerlegen Sie den Ausdruck oder die Befehlsfolge in mehrere einfache 
Teile, und reduzieren Sie die Verschachtelungen. 

406-410: Unzureichender Variablen- oder Programmspeicher 

Arbeiten Sie mit Units/Include-Dateien, zerlegen Sie das Programm in 
mehrere kleine Teile. Benutzen Sie unter Umständen den Kommando¬ 
zeilen-Compiler und verwenden Sie weniger Variablen, Konstanten usw. 
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411-421: einfache Syntaxfehler 

Wahrscheinlich haben Sie einen Schreibfehler gemacht; der Compiler 
kann die Quelltextzeile nicht korrekt auswerten. 

422-433: falscher Datentyp 

Sie haben wahrscheinlich ein unter Power Basic reserviertes Wort als 
Variablenname verwendet bzw. in einer Anweisung einen falschen Daten¬ 
typ für eine Variable verwendet. 

434-459: fehlerhafte Blockstruktur bzw. 
benutzerdefinierte Anweisung 

Sie haben nicht die vollständige Syntax eines Blockbefehls, einer Funktion 
oder eines Unterprogramms verwendet! Erinnern Sie sich, daß z.B. zu 
jedem SUB ein END-SUB und zu jedem SELECT-CASE ein END-SELECT 
gehört! 


460-470: Sprachelement nicht definiert bzw. doppelt 
vorhanden! 

Ändern Sie doppelte Namen oder Sprungmarken ab und kontrollieren 
Sie, ob diese bereits im Programm eingeführt sind. 

471-492: falscher Befehl 

Sie haben einen Befehl verwendet, der an der bestimmten Stelle im 
Programm nicht zulässig ist! Eventuell haben Sie unzulässige Zeichen in 
Variablen- oder Unterprogrammnamen verwendet oder ein Datenfeld zu 
groß dimensioniert. 

493-497: Dateifehler 

Wahrscheinlich haben Sie bei einer $INCLUDE- bzw. $INLINE- oder 
$[/N/C-Anweisung einen falschen Dateinamen angegeben. 
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498-516: Dateimodulfehler 

Eine Anweisung in einer Unit oder einem Assemblermodul ist nicht korrekt 
bzw. in Verbindung mit dem aktuellen Hauptprogramm nicht zulässig. 

601-606: Interner Fehler 

Fehler im Laufzeitsystem von Power Basic! Sie haben keine Möglichkeit, 
diese Fehler zu beseitigen! 

Entdeckt der Compiler einen dieser Fehler, wird der Übersetzungsvorgang 
abgebrochen und der Cursor wird im Editor an die Fehlerstelle positio¬ 
niert. So haben Sie direkt die Möglichkeit, unmittelbar eine Korrektur 
vorzunehmen. Eine Vielzahl der hier genannten Fehler ergibt sich durch 
Tippfehler. Korrekturen sind daher normalerweise sehr schnell durch¬ 
führbar. 

Auf eine erneute Auflistung der Laufzeitfehlermeldungen wollen wir an 
dieser Stelle verzichten. Nähere Informationen hierzu können Sie Kapitel 
2.9 entnehmen. Das Problem bei den Laufzeitfehlern ist, daß diese erst 
nach der Programmerstellung auftreten und daher nur schwer auffindbar 
sind. In unserem Programm HAUSHALT fangen wir eventuell auftretende 
Fehler ab und geben eine aussagekräftige Fehlermeldung aus. In kom¬ 
plexeren Programmen müßte diese Fehlerliste natürlich erweitert werden. 
Verzichten wir auf eine Fehlerbehandlungsroutine, wird das Programm 
beim Auftreten eines Laufzeitfehlers abgebrochen. Innerhalb der Ober¬ 
fläche wird der Textcursor wieder an die Fehlerstelle positioniert. 

Der Programmzähler 

Da Sie Ihr Programm später im Normalfall in einer eigenständig ausführ¬ 
baren Programmfassung nutzen werden, haben Sie eine zusätzliche 
Möglichkeit, um Fehler zu lokalisieren. Nachdem in einem Maschinenpro¬ 
gramm ohne Fehlerbehandlungsroutine ein Laufzeitfehler auftritt, wird das 
Programm beendet und eine Fehlermeldung auf der Betriebssystemebene 
in der nachfolgenden Form ausgegeben: 

Error 75 at pgm-ctr: 1334 

Diese Fehlermeldung ermöglicht es, die Stelle im Quelltext zu ermitteln, 
die den Fehler verursacht hat. Dazu starten Sie die Power-Basic-Entwick- 
lungsumgebung und laden den Quelltext zu Ihrem Maschinenprogramm. 
Wählen Sie anschließend die Menüfolge Compile —► Destination —► 
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EXE-File, damit der Compiler die Beziehung zwischen dem Maschinen¬ 
programm und dem Quelltext herstellen kann. Danach können Sie mit 
Compile —► Find Error ein Eingabefenster öffnen, in das Sie die Fehler¬ 
nummer eingeben können (Bild 3.1.1). Wenn Sie diese Eingabe mit 
IReturn 1 quittieren, wird der Textcursor genau in die Quelltextzeile 
positioniert, in der der Fehler im Maschinenprogramm aufgetreten ist. 


»T-TTMTr! Options Debug Break Ajatcl 


Conpile D1L—FH 

Destination EXE File 

F 


> UNIT: TOOLS.BAS 
• allgenein einsetzbare 


SUB Ausuahl <TeXt$C>, Anzahl*, ufarbe*, hfarbe*, Uahl*> PUBLIC 
COLOR ufarbe*, hfarbe* 'Fensteraufbau 

Breite* = 10 

FOR x* = 1 TO Anzahl* 'max. Stringlänge 

IF LEN<Text$<x*>> > Breite* THEN Breite* = LEN<Text$<X*>> 
NEXT X* 

FOR y* = 1 TO Anzahl* 'einheitl. Stringlänge 

Text$<y*> = SollLen$(Text$(y*>, Breite*) 

NEXT y* 

Breite* = Breite* ♦ Z 'Fenster 

CALL FensterC5, 5, Breite*, Anzahl*, ufarbe*, hfarbe*) 

FOR x* = 1 TO Anzahl* 

IF X* = 1 THEN 

- Uatch - 


Bild 3.1.1: 
Die Fehler¬ 
lokalisierung 


Der Quelltext-Debugger 

Um weitere Fehler zu entdecken, die weder zu einem Compiler- noch zu 
einem Laufzeitfehler führen, stellt Ihnen Power Basic einen Quelltext- 
Debugger zur Verfügung. Stellen Sie sich vor, Sie haben nach Ihrem 
Ermessen ein korrektes Programm erstellt, das Datensätze nach bestimm¬ 
ten Kriterien durchsucht. Die Ergebnisse sind aber seltsamerweise nicht 
korrekt, da nur ein kleiner Teil der gesuchten Datensätze wirklich gefunden 
wird. Aber wo und wie den Fehler finden? An einem kleinen Beispiel 
wollen wir die Möglichkeiten des Debuggers vorstellen. 

Beispielprogramm Debugger: 

FOR i%=l TO 100 
z%=z%+l 
y%=y%+2 
x%=y%+z% 

NEXT i% 

Mit dem Debugger haben Sie die Möglichkeit, Variablenwerte zu ver¬ 
folgen und zu verändern oder spezielle Haltepunkte in Ihr Programm 
einzubauen. Das Programm können Sie blockweise oder auch im Einzel¬ 
schrittmodus ausführen lassen. Was das bedeutet, wollen wir an unserem 
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obigen Beispiel durchsprechen. Zunächst müssen Sie das Programm in 
den Editor der Benutzeroberfläche eingeben. Anschließend können wir 
es ausführen. Da das Programm keine Ausgaben auf dem Bildschirm 
macht, ist eine Verfolgung der Werte zunächst nicht möglich. 


Bild 3.1.2: 
Variablen 
verfolgen 

Um das zu ändern, lassen wir uns innerhalb der Oberfläche die Variablen 
x%, y% und z% anzeigen. Um eine Variable im sogenannten Watch-Fen- 
ster, das im unteren Bildschirmbereich angesiedelt ist, anzeigen zu lassen, 
wechseln wir mit Ifio] zunächst vom Editor in die Menüauswahl. Mit 
Breok/watch —► Add wotch oder dem Tastenbefehl Istrql + fFTI können 
wir nun ein Fenster öffnen, in das ein beliebiger Variablenname eingebbar 
ist. Das ist in unserem Falle zunächst x%. Quittieren wir diese Eingabe mit 
[Return 1 r erscheint im Watch-Fenster die Variable x% mit dem eventuell 
bereits zugewiesenen Variablenwert (Bild 3.1.2). 

Sobald wir x% als zu verfolgende Variable definiert haben, machen wir 
dasselbe mit den Variablen y% und z%. Führen wir nun das Programm 
aus, haben wir zwar den Endwert der Variablen in unserem Variablen¬ 
fenster stehen, aber von Zwischenwerten ist keine Spur. Immerhin werden 
die Werte in unserem Programm innerhalb einer FOR-NEXF-Schleife 
genau hundertmal geändert. Aber auch hierfür bietet der Debugger 
entsprechende Funktionen an. 

Um Zwischenwerte, z.B. in einer Programmschleife oder an einer beliebi¬ 
gen Programmstelle, anzeigen zu lassen, haben wir die Möglichkeit, 
Breakpoints bzw. sogenannte Haltepunkte zu setzen. Die Programmaus¬ 
führung wird später genau an dieser Stelle angehalten. Ein einmal 


Line B Col 4 
' TestprograiiM Debugger 

FOR X*=l TO 100 
zZ=z2+l 
y/'ryZ+ZH 


B8 

103 


DeleLe uatch 
Edit uatch 
ReMoue all uatches 

Toggle breakpoint Ctrl-F8 
Clear all breakpoints 
Uieu next breakpoint 
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gestopptes Programm braucht nicht erneut gestartet zu werden, es kann 
genau an dieser Haltestelle wieder fortgesetzt werden. Innerhalb eines 
Programms können beliebig viele Haltepunkte gesetzt werden. In unserem 
Beispiel brauchen wir lediglich einen Haltepunkt innerhalb der Schleifen¬ 
konstruktion. 


Edit Run Cowpil 


Line 6 Col 4 
'TestprograMM Debugger 

FOR xZ=l TO 100 

y*=y*+Z 
x*=zZ+yZ 
NEXT X* 

END 


Insert Indent 


Add uatch I 

Delete uatch 
Edit uatch 
Rerioue all uatches 


le breakpoint 


m 



Bild 3.1.3: 

Haltepunkte 

setzen 


Um einen Haltepunkt zu definieren, positionieren wir zunächst den 
Textcursor im Editor genau auf die Zeile, in der der Haltepunkt benötigt 
wird. Anschließend setzen wir den Breakpoint mit Ifio| Break/watch —► 
Toggle Breakpoint bzw. der Tastenkombination lstrql + fF8l (Bild 3.1.3). 

Starten wir nun unser Programm erneut, wird genau beim Haltepunkt die 
Programmausführung unterbrochen. Außerdem sind die Zwischenwerte 
der Variablen im Wafch-Fenster zu erkennen. Mit d9] können Sie nun 
das Programm bis zum nächsten Haltepunkt ausführen lassen. Jetzt können 
Sie jeden Zwischenwert der Variablen x%, y% und z% verfolgen. 

An manchen Programmstellen kann es zudem erforderlich sein, ein 
Programm nicht bis zu einem bestimmten Punkt ablaufen zu lassen, 
sondern schrittweise auszuführen. Wird z.B. eine Zeichenkette in einem 
mehrzeiligen Block aufgebaut, ist es nicht notwendig, in jeder Zeile einen 
Haltepunkt einzufügen, einer zu Beginn des Blocks genügt. Anschließend 
setzen Sie das Programm mit der Funktionstaste [ED schrittweise fort. 

Ergeben sich für eine Variable in einem solchen Fall falsche Zwischenwer¬ 
te, wäre es zum Teil sinnvoll, den Rest der Anweisungen auf Korrektheit 
zu überprüfen. Dazu müßte natürlich zunächst der falsche Zwischenwert 
korrigiert werden. Auch hierfür stellt Power Basic eine komfortable Mög- 
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lichkeit zur Verfügung. Über Ifio 1 Debug —► Evaluote bzw. mit der 
Funktionstaste GED können Sie Variablenwerte während der Programm¬ 
ausführung ändern. Damit können Sie die Auswirkungen unterschiedlicher 
Werte für Variablen in einem Programm testen, ohne den Quelltext bereits 
verändern zu müssen (Bild 3.1.4 und 3.1.5). 




= taiL = 

Line 7 Col 6 Insert Indent 

|| Eualuate Ctrl-F4 


'Testprogrann Debugger 


Call stack Ctrl-F3 





Find SUB/function/label 



FOR x/.=l TO 100 


Integrated debugging 

On 


z/^zZ+1 


MAP filo 

Off 


y’/.=y‘/.+Z 


Display suapping 

Snart 


x'/.=zy.*yy. 


Refresh displag 



NEXT x/. 






END 


- Uatch 

•z/j: 1 

y * z 

xX: 3 



Bild 3.1.4: 
Variablen¬ 
manipulation 



Bild 3.1.5: 

Variablenwerte 

ändern 


Nun haben Sie eine Vielzahl von Möglichkeiten kennengelernt, um Fehler, 
die in der Programmierung mit Power Basic auftreten können, zu beseiti¬ 
gen. Einen Großteil der Fehlersuche erledigt Power Basic für Sie, für nicht 
erkennbare Fehler stellt die Entwicklungsumgebung hervorragende Werk¬ 
zeuge bereit. 
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Bekannte Programm-Mängel und deren Umgehung 

Da es derzeit nach menschlichem Ermessen nicht möglich ist, Software- 
Programme fehlerfrei zu erstellen, sind sicherlich auch in Power Basic 
Fehler vorhanden. Im großen und ganzen erweist sich der Compiler 
allerdings, im Gegensatz zu seinem Vorgänger Turbo Basic, als sehr 
stabil. Beachten Sie vor allen Dingen, daß Datenfelder innerhalb von 
Unterprogrammen und Funktionen nichteingeführtwerden dürfen. Wollen 
Sie ein Datenfeld ausschließlich in einem Unterprogramm verwenden, 
müssen Sie es zuvor als öffentlich [PUBLIC] oder als global ( SHARED) 
deklarieren. Je nachdem, ob Sie mit oder ohne Units arbeiten. 

Beachten Sie ferner, daß die Fehlerverfolgung innerhalb von Units bei 
einer ON-E/?/?OR-Anweisung im Hauptprogramm nicht gewährleistet ist. 
Sie können dies umgehen, indem Sie nicht mehr die bereits kompilierte 
Unit mit $LINK, sondern den Quelltext der Unit mit $INCLUDE in das 
Hauptprogramm einbinden. 

Mit ein wenig Experimentieren lassen sich normalerweise sämtliche Fehler 
und Schwachpunkte von Power Basic umgehen. Ein Systemabsturz kommt 
in der Regel während der Programmierung nicht vor, wenn Code für die 
Programmüberwachung generiert wird. Um dies zu gewährleisten, 
müssen Sie im Menü Options —► Compiler —► Error tests sämtliche 
Menü-Einträge auf ON schalten (vgl. Menü-Referenz). 

3.2 Erste Hilfe: Was tun bei drohendem 
Datenverlust? 

Leider können auch Fehler auftreten, die eigentlich gar nichts mit Power 
Basic zu tun haben. Fehlerhafte Disketten, ein falscher Umgang mit der 
Benutzeroberfläche oder aber auch nur ein einfacher Stromausfall können 
ungewollt zum Datenverlust führen. Wer will schon gerne ein Programm 
zweimal eintippen? Die sicherste Möglichkeit, die Gefahren eines Daten¬ 
verlustes so gering wie möglich zu halten, ist die regelmäßige Daten¬ 
sicherung. Dabei sind insbesondere die Quelldateien wichtig, aus denen 
Sie sich später ja wieder ein Maschinenprogramm erzeugen lassen 
können. Gewöhnen Sie sich an, nicht nur eine Kopie Ihres Programms auf 
der Festplatte zu erzeugen, sondern legen Sie die Quelltexte auch auf 
Diskette ab. Bedenken Sie, nicht jede Festplatte lebt ewig. Und ist eine 
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Festplatte erst einmal defekt, so kann Ihnen keiner mehr garantieren, daß 
Sie Ihre Daten jemals wiederverwenden können. 

Sollte Ihnen einmal eine Arbeitsdatei zerstört worden sein, so können Sie 
versuchen, die entsprechende BAK-Datei in den Editor zu laden, die 
standardmäßig als Sicherungsdatei gespeichert wird. Hat Ihre Datei den 
Namen TEST.BAS, so trägt die Sicherungsdatei den Namen TEST.BAK. 
Ist dies nicht möglich, können Sie auf Ihre Diskettenkopie zurückgreifen. 

3.3 Kniffe, Tips und andere Spezialitäten 

An dieser Stelle wollen wir einige Tips und Tricks zu Power Basic vorstellen. 
Sie werden sehen, auch für die professionelle Programmierung ist Power 
Basic geeignet. 


Programmierung für Profis 

Nun wollen wir uns einigen speziellen Programmierthemen widmen, die 
die Leistungsfähigkeit von Power Basic unter Beweis stellen. 

DOS-Piping und SHELL 

Uber den SHELL -Befehl können beliebige DOS-Befehle oder Programme, 
aus einem Power-Basic-Programm heraus, ausgeführt werden. Program¬ 
me, die aufgerufen werden, zerstören durch Bildschirmausgaben zum Teil 
die eigene Programmoberfläche. Um dies zu verhindern, verwenden wir 
das sogenannte DOS-Piping, die Dateiumleitung des Betriebssystems. 
Wollen wir Ausgaben unterdrücken, stellt DOS die Einheit NUL bereit. Um 
z.B. mit SHELL ein Inhaltsverzeichnis auszugeben, das nicht auf dem 
Bildschirm erscheint, verwenden wir den nachfolgenden Befehl. 

SHELL "DIR > NUL" 

Ebenso könnten wir das Inhaltsverzeichnis in eine Datei speichern, z.B. 
mit dem Namen TEST.BAS. 

SHELL "DIR > TEST.BAS" 

Diese Datei wird im ASCII-Format abgelegt und könnte von Power Basic 
im sequentiellen Dateimodus direkt bearbeitet werden. Dieses Prinzip der 
Dateiumleitung ist mit einer Vielzahl von kommandozeilenorientierten 
Programmen möglich (z.B. Dienstprogramme des Betriebssystems). 
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Interrupt-Programmierung 

Über die Interrupt-Programmierung können sämtliche DOS- und BIOS- 
Funktionen in einem Power-Basic-Programm verwendet werden. Aber 
auch Funktionen aus Treibern (z.B. Maus-Treiber, EMS-Treiber) können 
über diese Systemaufrufe angesprochen werden. Der Interrupt-Aufruf 
erfolgt nach einem einheitlichen Schema. 

Schema für Interrupt-Aufrufe: 

1. Falls erforderlich, Eingaberegister mit REG-Befehl setzen. 

2. Interrupt mit CALL INTERRUPT aufrufen. 

3. Eventuell Rückgabewerte aus den Registern mit der REG-Funktion lesen. 

Wir wollen an dieser Stelle ein Unterprogramm vorstellen, das nach 
diesem Schema programmiert ist und auf den Maus-Treiber zugreift. Auch 
hierfür verwenden wir das oben vorgestellte Schema für Interrupt-Aufrufe. 
Wir haben diese spezielle Funktion gewählt, da sowohl Eingabe- als auch 
Rückgabewerte behandelt werden müssen. Außerdem sind die Werte 
direkt auswertbar und müssen nicht genauer entschlüsselt werden. 

SUB MausTest (MausStatus%, AnzahlTasten%) 

REG 1, &H0 'Eingaberegister 

CALL INTERRUPT &H33 'MAUS-Interrupt 

MausStatus%=REG(1) 

AnzahlTasten%=REG(2) 

END SUB 


Tips und Tricks zu Power Basic 

An dieser Stelle wollen wir Ihnen einige Tips geben, die Ihnen ein noch 
effektiveres Arbeiten mit Power Basic ermöglichen. 

Drucken von Programmen 

Power Basic beinhaltet leider keinen Menüeintrag, der das Ausdrucken 
eines Programms oder eines Programmteils erlaubt. Innerhalb des Editors 
können Sie über den Tastenbefehl Istrgl + (k) GD einen markierten Block 
zum Drucker senden. Ist kein Block markiert, wird der gesamte Quelltext 
zum Drucker gesendet. Aber auch die Menüs erlauben das Ausdrucken 
einer Quelldatei. Wählen Sie File —*■ Write To und geben Sie als 
Dateinamen PRN ein. In diesem Fall wird der gesamte im Editor befind¬ 
liche Quelltext auf dem Drucker ausgegeben. PRN ist für MS-DOS der 
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Gerätename für den Drucker und als Dateiname daher unzulässig. Ebenso 
lassen sich auch einzelne Teile eines Programms ausdrucken. Markieren 
Sie den Blockanfang mit |strg) + fKl [ b ] und das Blockende mit 
(strg 1 + QD [k] . Anschließend wählen Sie Istrgl + @@,um einen Block 
in eine Datei zu schreiben. Hier geben Sie wieder PRN als Gerätenamen 
an. 

Übernahme von GW-Basic-Programmen 

Power Basic bietet Ihnen die Möglichkeit, Quelltexte, die ursprünglich für 
den GW-Basic- bzw. BasicA-lnterpreter entwickelt worden sind, zu über¬ 
nehmen und in Maschinensprache zu übersetzen. Dabei ist allerdings zu 
berücksichtigen, daß der Interpreter die Programme standardmäßig im 
sogenannten Token-Format, einem verschlüsselten Dateiformat, speichert. 
Diese Programme können erst von Power Basic benutzt werden, wenn sie 
vom Interpreter mit dem nachfolgenden Befehl gespeichert wurden. 

Allgemein: 

SAVE Dateiname , A 

Beispiel: 

SAVE "TEST.BAS", A 

Die Option A sorgt in unserem Beispiel dafür, daß die Datei TEST.BAS im 
ASCII-Format abgespeichert wird. Im Anschluß daran können Sie die 
Datei in den Editor von Power Basic laden und notwendige Änderungen 
durchführen. 

Schreiben eines Startprogramms 

Wenn Sie ein ausführbares Maschinenprogramm erstellen, wird, je nach 
Linker-Optionen, ein mehr oder weniger großer Teil der Laufzeitbibliothek 
mit eingebunden. Haben Sie mehrere Dateien auf einer Diskette oder der 
Festplatte, liegen diese Routinen mehrfach vor. Um wertvollen Speicher¬ 
platz auf Ihrem Festspeicher zu sparen, bietet es sich an, ein eigenes 
Laufzeitmodul zu verwenden, das nur einmalig vorhanden sein muß. 
Power Basic bietet hierzu eine besonders einfache Lösung an. 

Zunächst erstellen Sie sich ein Hauptprogramm, das im Prinzip nichts 
weiter macht,* als die Programmausführung an ein Chain-Modul zu 
übergeben. Mit einer kleinen Fehlerbehandlung und kurzem Hilfstext 
könnte ein solches Programm wie in Listing 3.3.1 aussehen. 
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ON ERROR GOTO Fehler 
IF COMMAND$="" THEN 

PRINT "PBRUN - Power Basic 2.10 - Laufzeitmodul" 
PRINT "Programmstart: PBRUN Name" 

ELSE 

CHAIN COMMAND$+".PBC" 

END IF 
END 


Fehler: 

PRINT "Datei kann nicht ausgeführt werden!" 

RESUME NEXT 

Listing 3.3. I: Das Laufzeitmodul PBRUN.BAS 

Übersetzen Sie dieses Programm anschließend in eine ausführbare Pro¬ 
grammdatei und beachten Sie, daß sämtliche Laufzeitroutinen eingebun¬ 
den werden (alle Linker-Optionen auf ON). Damit haben Sie im Prinzip 
nichts anderes als eine »ausführbare« Laufzeitbibliothek erstellt. Mit 
CHAIN wird die Kontrolle des Programms an ein CHAIN -Modul über¬ 
geben, das beim Programmstart auf der Kommandozeilenebene mit 
angegeben wurde. Der CHA/N-Befehl sorgt dafür, daß die Laufzeitbiblio¬ 
thek im Speicher verbleibt und ein Overlay-Modul nachgeladen wird. Das 
Modul selbst kann nun auf die Laufzeitbibliothek verzichten. Wir überset¬ 
zen unsere Programme nun nur noch in CHA/N-Module (PBC-Dateien). 
Um diese Dateien später ausführen zu können, verwenden wir folgenden 
Aufruf: 

PBRUN Programmname 


Da unser Programm PBRUN.BAS ein Suffix automatisch anhängt, brau¬ 
chen wir keines beim Dateinamen angeben. Nehmen wir an, unser 
Programm soll lediglich den Text »Hallo Welt!« auf dem Bildschirm 
ausgeben. Dazu benötigen wir nur eine Quelltextzeile. 

PRINT "Hallo Welt!" 

Diese übersetzen wir in ein CHA/N-Modul und starten es anschließend 
mit dem nachfolgenden Befehl. 

PBRUN WELT 

Das CHA/N-Modul belegt nun weniger als 400 Byte, da keine Laufzeit¬ 
bibliothek mehr eingebunden werden muß. Wenn Sie so bei all Ihren 
Programmen Vorgehen, werden Sie auf Dauer sehr viel Speicherplatz auf 
Ihren Disketten oder Ihrer Festplatte sparen. 
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Programmierung einer Fensterverwaltung 

Die meisten Programme, die heute auf dem Markt erscheinen, verfügen 
über eine komfortable Benutzeroberfläche. Auch in unserem kleinen 
Programm HAUSHALT haben wir dies auf recht einfache Weise ermöglicht. 
Wie Ihnen aber vielleicht aufgefallen ist, überschreiben wir den Bildschirm 
jedesmal neu mit einem Hintergrund. Dadurch umgehen wir es, einen 
Fensteruntergrund in den Speicher zu sichern und nach dem Schließen 
des Fensters wieder zurückzuholen. Durch spezielle Power-Basic-Befehle 
können Routinen, die den Bildschirm sichern bzw. zurückholen, sehr 
schnell realisiert werden. 

SUB Bildschirm(Karte$, Mode%) 

STATIC Bildschirmlnhalt$ 

IF Karte$="HGC" THEN 'Hercules-Grafik 
DEF SEG=&HB000 

ELSE 'sonstige Farbgrafik 

DEF SEG=&HB800 
END IF 

IF Mode%=l THEN 'sichern 

BildschirmInhalt$=PEEK$(0,4000) 

ELSE 'zurückschreiben 

POKE$ 0,Bildschirmlnhalt$ 

END IF 
DEF SEG 
END SUB 

Listing 3.3.2: Die Routine Bildschirm 

Das hier angeführte Unterprogramm sichert höchstens einen Bildschirm. 
Ist Mode%= 7, wird gesichert, ansonsten wird der Bildschirminhalt restau¬ 
riert. Wenn Sie mehrere Bildschirme sichern wollen, könnten Sie die 
einzelne Variable Bildschirmlnholt$ durch ein Stringarray ersetzen. In 
diesem Fall müßten Sie eine Fensternummer in der Parameterliste überge¬ 
ben. Beachten Sie, daß die Zeichenkettenvariable Bildschirmlnhalt$ eine 
statische Variable ist und daher der Wert bis zum nächsten Unterpro¬ 
grammaufruf erhalten bleibt. 

'Demo des Unterprogramms Bildschirm 

CLS 'Bildschirm löschen 

COLOR 7,1 'blau/weiß 

FOR x%=l TO 25 'Bildschirm aufbauen 

PRINT STRING$(80, 

NEXT x% 

CALL Bildschirme", 1) 'sichern 

COLOR 7,0 'schwarz/weiß 

CLS 'Bildschirm löschen 
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PRINT "bitte Taste drücken..." 

WHILE INKEY$="":WEND 'auf Tastendruck warten 

CALL Bildschirm ("",0) 'Bildschirm restaurieren 

Listing 3.3.3: Bildschirm-Testprogramm 

Mit dem Beispielprogramm aus Listing 3.3.3, welches hier für eine 
Farbgrafikkarte und einen Farbmonitor formuliert ist, können Sie die 
Routine zum Sichern und Zurückholen von Bildschirminhalten testen. Mit 
dieser Grundroutine und den Grundroutinen zur Fensterverwaltung aus 
dem Programm HAUSHALT können Sie sich nun eine umfangreiche 
Fensterverwaltung aufbauen. 

3.4 Sinnvolle Hardware-Erweiterungen 

Wie bereits erwähnt, benötigt Power Basic keine spezielle Hardware und 
ist auch auf Rechnern mit Minimalausstattung lauffähig, was für heutige 
Programmiersprachen bereits sehr selten der Fall ist. Aber natürlich gibt 
es auch sinnvolle Hardware-Erweiterungen, die die Arbeit mit Power Basic 
verbessern. Auch sind spezielle Fähigkeiten von Power Basic nur nutzbar, 
wenn eine entsprechende Rechnerausstattung vorhanden ist. 

Generell kann man sagen, daß die sinnvollste Erweiterung eine Festplatte 
ist. Die Kapazität ist dabei nicht unbedingt von entscheidender Bedeutung 
für Power Basic. Auch eine 1 O-Mbyte-Festplatte wäre für Power Basic 
ausreichend. Sie sollten allerdings berücksichtigen, daß Sie sicherlich 
mehrere Programme auf der Festplatte installieren wollen, so daß die 
Kapazität nicht unter 40 Mbyte liegen sollte. 

Der Rest der Hardware-Ausstattung richtet sich in erster Linie danach, 
welche Programme Sie vordringlich entwickeln wollen und wie wichtig 
Ihnen die Ablaufgeschwindigkeit der Programme ist. Wollen Sie den 
Schwerpunkt auf die Grafikprogrammierung legen, sollten Sie eine VGA- 
Grafikkarte in Ihren Rechner einbauen lassen, die bereits sehr preisgünstig 
zu haben ist. Um in den Genuß einer hohen Ausführungsgeschwindigkeit 
zu kommen, sollten Sie mindestens einen Rechner mit 80286-Hauptpro- 
zessor verwenden. Ein Coprozessor hingegen ist nur für die kommerzielle 
Nutzung erforderlich. 
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3.5 Der Kommandozeilen-Compiler 

Mit Power Basic können Sie komfortabel auch größere Programme 
schreiben. Dennoch kann es passieren, daß nicht genügend Arbeits¬ 
speicher für die Programmentwicklung zur Verfügung steht. In diesem Fall 
steht Ihnen ein Compiler ohne Entwicklungsumgebung zur Verfügung, der 
im Speicher selbst weniger Platz benötigt. Damit können Sie Programme 
über einen Befehl von der Betriebssystemebene aus in Maschinensprache 
übersetzen. Der Compiler befindet sich auf den Originaldisketten und hat 
den Namen PBC.EXE. 

Zunächst wollen wir noch einmal in die Entwicklungsumgebung zurück¬ 
kehren. Wenn Sie ein Programm übersetzt haben, können Sie sich über 
IFio 1 File —► Gei Info nähere Informationen zum Speicherbedarf des 
gerade übersetzten Programms auflisten lassen (Bild 3.5.1). 


Bild 3.5.1: 

Das Info-Fenster 
von Power Basic 

Ist der freie Speicher (Free Memory] nicht mehr sehr groß, sollten Sie mit 
PBC arbeiten. Aber keine Angst, in der Regel brauchen Sie den Komman¬ 
dozeilen-Compiler nur in sehr seltenen Fällen. Für professionelle Program¬ 
mierer aber ist er ein weiteres positives Merkmal des Power-Basic-Pro- 
grammpakets. 

Wenn Sie PBC direkt aufrufen, ohne eine bestimmte Quelldatei anzu¬ 
geben, erhalten Sie auf dem Bildschirm eine Liste der möglichen Para¬ 
meter, die Sie an den Kommandozeilen-Compiler übergeben können 
(Bild 3.5.2). 


Debug BreakAiatch 


Insert Indent 


C:HAUSHALT.BAS 


$1NCLUDE "T( 

)0LS.H" 

'Deklarationen der Unit TOOLS 


$LINK "TOOLf 

Directory: 

- intornation .i 

C:\U0RD 1 


'* Progrann 

File size: 

19219 

(Max: 

64613) 

1* 

' * Cotipi 1er 

EMS usage: 

0K 




' *» ueruende 

Lines: 

711 


Code is ready to run. 

M 

' ** ueruende 

Stnts: 

691 


Progran exit code: n/a 

* 

'* geschrie 





» 

* * letzte Ä 

Code: 16144 

H-kf ■ 77>4Q 

bytes 


Tine: 00:00.9 



Stack: 4000 

bytes 


Free nenory: 115K 


$STACK 4000 

Segnents(l): 

17k 




CLS 






ON ERROR 00, 


— 

Press 

any key 



ufarbeX = 7 


'Daten initialisieren 
- Uatch - 
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C:\SPRACHEN\PB>pbc 




PouerBASIC 

Uersion 2.10a Copyright <c) 

1390 

by Robert S. Zale 

Spectra Publishing, Sunnyuale, CA, USA 



Syntax is: 

PBC [ options ] File [ opti 

ons ] 

«* = deFault: -X- = turn X oFF 

-oc 

control-break tust 


-CE 

conpile to .EXE 

-0A 

auto array DIMension 


-CU 

conpile to .PBU 

-RE=xxxxxx 

Find run-tine error address 

-CC 

conpile to .PBC 

-0DM 

generate .MAP File 

M 

-G8b 

generate 808G code 

X 

X 

X 

X 

X 

CA 

C 

c 

i 

stack = xxxxx bytes 


-GZ8B 

generate 8028b code 

-0MM=xxxx 

nusic buFFer = xxxx notes 

M 

-FEMU 

enulate Floating point 

-0MC=xxxxx 

com buFFer = xxxxx bytes 


-FNPX 

NPX <80x87) Float 

-0MA=xx 

string segMent = xx Kbytes 


-FP 

procedural Float 

-EP 

paraM error test 

♦* 

-LS 

con support 

-EB 

bounds error test 


-LP 

printer support 

-E0 

ouerFlou error test 

«* 

-LG 

graphics support 

-EN 

nuMeric error test 

H 

-LC 

CGA graphics support 

-ES 

stack error test 

* 

-LE 

EGA graphics support 

-DExxx 

executable directory 

* 

-LU 

UGA graphics support 

-DIXXX 

include directories 

*♦ 

-LH 

Hercules support 

-DOxxx 

obJect directories 


-LA 

all deuices supported 

-DUSxxx 

unit source directories 


-LI 

interpreted print 

-DUDxxx 

unit destination directory 


-LF 

Full Float enulator 

C:sSPRACHEN\PB> 





Bild 3.5.2: 
Aufruf des 
Kommando- 
zeilen-Compilers 
PBC 


3.6 Nützliche Zusatz-Software 

Power Basic ist noch nicht sehr lange auf dem Markt, so daß nur sehr 
wenig an Zusatzprogrammen verfügbar ist. Kirschbaum Software, also 
der deutsche Vertreiber von Power Basic, stellt zwei Toolboxen zur 
Verfügung, die die Programmierung von Programmoberflächen verein¬ 
fachen sollen. Der Preis eines Paketes beträgt ca. 90,- DM. Im Versand 
können die Toolboxen bereits für ca. 60,- DM bezogen werden. Ent¬ 
sprechende Anbieter können Sie den Computer-Fachzeitschriften ent¬ 
nehmen. Jede Toolbox beinhaltet ein leider nur recht knappes Handbuch. 
Die Funktionsbibliotheken werden sowohl auf einer 3 ] /2 n - als auch einer 
äVV'-Diskette ausgeliefert. Sie erhalten die fertig übersetzten Bibliotheks- 
module, aber keine Quelltexte der in Assembler programmierten Routinen. 
Anpassungen oder Änderungen der Bibliotheksroutinen sind also nicht 
möglich. 

Ein großer Schwachpunkt ist, daß der Inhalt der zwei Disketten sich 
unterscheidet, obwohl die Dateien eigentlich gleich sein sollten. Nicht jede 
Version ist auf jedem Rechner lauffähig. Unter Umständen müssen Sie die 
5"-Diskette verwenden, um das Installationsprogramm ausführen zu kön¬ 
nen. Auch ein Systemabsturz ist bei der Installation nicht ausgeschlossen. 
Bevor Sie die Toolboxen einsetzen können, sind zunächst genauere 
Vorarbeiten notwendig, die leider im Handbuch mit keinem Wort erwähnt 
sind. Der Umfang der Routinen selbst macht hingegen einen besseren 
Eindruck. 
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Power Tools I 

Die erste Toolbox umfaßt u.a. eine Fensterverwaltung, Menüroutinen und 
Ein- und Ausgabefunktionen, die die Programmierung von SAA-konformen 
Oberflächen erlauben. Zusätzlich stehen Hardware-nahe Funktionen so¬ 
wie Datei- und Verzeichnisfunktionen zur Verfügung. 


Power Tools II 

Die zweite Funktionsbibliothek beinhaltet schwerpunktmäßig ein kontext¬ 
sensitives Hilfesystem, das resident geladen und auch universell in eigenen 
Programmen genutzt werden kann. Außerdem werden Funktionen zur 
Mausunterstützung und Anweisungen für die freie Formatierung von 
Zeichenketteneingaben bereitgestellt. 

Benutzt man die Power Tools I und II, lassen sich recht komfortable und 
professionelle Programme entwickeln. Die Einarbeitungszeit dürfte für 
Programmieranfänger, aufgrund der mageren Dokumentation, allerdings 
recht groß sein. 
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Kapitel 4: 
Referenz 

In dem ersten Teil der Referenz werden wir sämtliche Menüeinträge, die 
in der Entwicklungsumgebung von Power Basic enthalten sind, kurz 
erläutern. Im zweiten Teil geben wir eine Kurzreferenz des Sprachum- 
fanges von Power Basic. Anschließend finden Sie in der Schnellinforma¬ 
tion einige Lösungen zu häufigen Programmieraufgaben der Praxis. 

4.1 Menüreferenz 

Jedes Menü ist nachfolgend mit dem englischen Menüeintrag aufgeführt 
und mit einer kurzen deutschen Erläuterung versehen. Sind für die Menü¬ 
einträge spezielle Tasten definiert, mit denen die gleiche Funktion ausge¬ 
führt werden kann, sind diese ebenfalls mit angegeben. Falls notwendig, 
öffnen sich nach der Auswahl eines Menüpunkts spezielle Eingabe- oder 
Dateiauswahlfenster, deren Bedienung wir an dieser Stelle nicht mehr 
genauer behandeln wollen. 


175 



Referenz 


4. 7. 7 Das Menü »File« 

Im Menü F//esind sämtliche Funktionen zur Datei- und Verzeichnisverwal¬ 
tung enthalten. 

Load Laden (ED 

Mit diesem Menü können Sie über ein Dateiauswahlfenster oder direkt in 
einem Eingabefenster den Namen der Quelldatei angeben, die in den 
Editor geladen werden soll. 

Pick Liste fÄltl + fFp 

Während einer Sitzung merkt sich Power Basic die Dateinamen, die 
zwischendurch geladen wurden. Im Speicher ist immer nur eine einzelne 
Quelldatei enthalten. Wenn Sie mehrere Quelltexte wechselseitig bear¬ 
beiten müssen, können Sie einmal geladene Dateien aus dieser Liste 
auswählen. 

New Neu 

Mit diesem Befehl löschen Sie einen eventuell im Editor enthaltenen Text, 
und der Dateiname wird auf NONAME.BAS gesetzt. Sie können nun ein 
neues Programm eingeben. 

Save Sichern ÜD 

Hiermit können Sie den aktuell im Editor bearbeiteten Quelltext in eine 
Datei speichern. Bevor bereits vorhandene Dateien überschrieben werden, 
erscheint im Normalfall eine Sicherheitsabfrage. 

Write to Sichern als 

Mit diesem Befehl können Sie eine im Speicher befindliche Datei unter 
einem neuen Namen speichern. Sie können also eine Kopie einer Datei 
erzeugen. Geben Sie als Namen eine Datei an, die bereits vorhanden 
ist, erscheint eine Sicherheitsabfrage. Nach dem Befehl wird der Datei¬ 
name im Editor auf den neuesten Stand gebracht, so daß das nächste 
Speichern wieder über den Menübefehl Sove möglich ist (Kapitel 2.2). 


176 





Referenz 


Directory Verzeichnis 

Diese Menüanweisung gibt die Dateien des aktuellen Verzeichnisses in 
einem Dateiauswahlfenster aus. Die ausgewählte Datei wird in den Editor 
geladen. 

Change dir Verzeichnis wechseln 

Hiermit können Sie ein neues Arbeitsverzeichnis für Power Basic angeben. 
Beim Aufruf wird in einem Eingabefenster immer das aktuelle Verzeichnis 
angezeigt. Auch ein Laufwerkwechsel ist über diesen Menübefehl mög¬ 
lich. 

Get Info Informationen anzeigen 

Hiermit können Sie sich aktuelle Informationen zu Verzeichnis, Arbeits¬ 
datei und belegtem Speicher ausgeben lassen. Insbesondere der noch zur 
Verfügung stehende freie Arbeitsspeicher und der Speicherbedarf für das 
im Speicher befindliche Programm sind dabei von Bedeutung (Kapi¬ 
tel 3.1). 


OS Shell Ausgang Betriebssystem 

Mit OS Shell können Sie temporär auf die Betriebssystem-Ebene zurück¬ 
kehren, wobei die Entwicklungsumgebung und der Quelltext im Arbeits¬ 
speicher verbleiben. Für Programme, die Sie nun unter DOS ausführen, 
steht nur begrenzter Speicher zur Verfügung. Bedenken Sie, daß große 
Programme nun nicht mehr geladen werden können. Mit EXIT gelangen 
Sie zurück in die Entwicklungsumgebung. 

Quit Beenden fÄIFi + fin 

Mit diesem Menü verlassen Sie Power Basic und kehren zum Betriebs¬ 
system zurück. 
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4.1.2 Das Menü »Edit« 

Mit der Taste CD oder Anwahl des Hauptmenüpunkts Edit gelangen Sie 
in den Editor. Um vom Editor in das Hauptmenü zurückzukehren, drücken 
Sie die Taste (esc) oder IfioI . 


4.1.3 Das Menü »Run« 

Über das Menü Run starten Sie Ihre im Speicher befindlichen Programme 
ganz oder auch nur teilweise. 

Run Starten ÜD 

Übersetzt und startet ein im Editor befindliches Programm. 

Program reset Neustart istrgi + fFD 

Falls Sie den Debugger verwendet haben, geht Arbeitsspeicher für die 
Informationen verloren, die die Programmverfolgung ermöglichen. Um 
diesen Speicher nach dem Debuggen wieder freizugeben, sollten Sie 
diesen Menüpunkt aufrufen. 

Go to Cursor Gehe bis Cursor CD] 

Nachdem Sie den Textcursor im Editor gezielt auf eine spezielle Anwei¬ 
sung positioniert haben, wird durch diese Menüanweisung das Programm 
genau bis an diese Stelle ausgeführt. Dieser Ausführungsmodus bietet sich 
in Verbindung mit dem Quelltext-Debugger an. 

Trace into Einzelschrittmodus (DD 

Mit diesem Menübefehl bzw. mit der Funktionstaste (DD können Sie Ihr 
Programm im Einzelschrittmodus ausführen (Kapitel 3.1). Auch benutzer¬ 
definierte Anweisungen (Unterprogramme, Funktionen) werden in Einzel¬ 
schritten abgearbeitet. 
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Step over Einzelschrittmodus QD 

Diese Funktion ist nahezu identisch mit der vorangehenden. Lediglich 
benutzerdefinierte Funktionen und Unterprogramme werden in einem 
Schritt ausgeführt. Sind Sie sicher, daß ein Programmfehler nicht in einem 
Unterprogramm oder einer Funktion zu suchen ist, sollten Sie diese 
Anweisung zum Debuggen verwenden. 

User screen Ausgabemodus lAiti + fFp 

Mit diesem Menübefehl können Sie auf den Ausgabebildschirm umschal¬ 
ten. Hier sind alle Ergebnisse sichtbar, die Ihr Programm während einer 
Ausführung in der Oberfläche ausgibt. Die Umschaltung ist insbesondere 
während des Debuggen sehr wichtig. 

Block run Block ausführen 

Mit diesem Befehl haben Sie die Möglichkeit, einen Programmteil als 
getrennten Block zu übersetzen und auszuführen. Dazu markieren Sie im 
Editor den Blockanfang mit [strgl + pTl pT) und das Blockende mit 
[strgl + pTl |Y|. Anschließend können Sie diesen Block mit Block run 
übersetzen und ausführen. Der Block selbst ist dann unabhängig vom 
übrigen Programm. 


4.1.4 Das Menü »Compile« 

Mit den Untermenüpunkten zu Compile können Sie die Codegenerierung 
beeinflussen, Laufzeitfehler lokalisieren bzw. eine Hauptdatei für den 
Compiler festlegen. 

Compile Übersetze (Aiti + fF9l 

Mit diesem Befehl können Sie ein Programm in Maschinensprache über¬ 
setzen. Dabei wird die ausführbare Programmdatei so abgelegt, wie es 
im nachfolgenden Menü festgelegt wird. Der Arbeitsstand der Über¬ 
setzung wird in einem Ausgabefenster angezeigt. Tritt ein Fehler auf, wird 
die Übersetzung beendet und in den Editor an die Fehlerstelle gesprungen. 
Ist das Programm fehlerfrei, bestätigt der Compiler die erfolgreiche 
Übersetzung. Das Programm wird nicht wie bei Run direkt ausgeführt. 
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Destination Übersetze nach ... 


Durch diesen Menüpunkt können Sie festlegen, ob eine Quelldatei in ein 
ausführbares Programm, eine Unit, ein Chain-Modul oder direkt in den 
Speicher übersetzt werden soll. 


Memory: 
EXE Ule: 


Chain file: 


Unit file: 


Programm in den Speicher übersetzen. 

Ausführbare Programmdatei im aktuellen Laufwerk und 
im aktuellen Verzeichnis erzeugen. 

Datei ohne Runtime-Modul erzeugen. Diese Datei kann 
nur von einem ausführbaren Programm mit Laufzeit¬ 
bibliothek über den CHA/N-Befehl gestartet werden. 

Funktionsbibliothek erzeugen (Kapitel 2.1). 


Find Error Suche Fehler 

Mit Hilfe dieses Menübefehls können Sie einen Laufzeitfehler, der in einem 
Maschinenprogramm aufgetreten ist, in dem entsprechenden Quelltext 
lokalisieren (Kapitel 3.1). 


Main File Hauptdatei übersetzen 

Mit dieser Anweisung können Sie eine Hauptdatei für den Compiler 
angeben. Jeder Übersetzungsvorgang, den Sie anschließend durch¬ 
führen, wird mit dieser Datei begonnen. Diese Menüoption ist dann 
interessant, wenn Sie Ihr Programm in mehrere Quelldateien zerlegt 
haben (Kapitel 2.2). 


4.7.5 Das Menü »Options« 

Mit Hilfe des Optionen-Menüs können Sie Einstellungen des Compilers 
und Linkers festlegen und so Einfluß auf die Codegenerierung nehmen. 


Compiler Compiler konfigurieren 

Mit diesem Menübefehl nehmen Sie die Einstellungen am Compiler vor. 
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Generoted 

Code: 


Floating Point: 


Array outo-dim: 


Control-Break 

testing: 


Error tests: 


Stack Test On: 


Der erzeugte Maschinencode soll entweder für den 
8086/88-Prozessor oder für den 80286-Hauptprozes- 
sor erzeugt werden. Im ersten Fall ist das Programm auf 
jedem Rechner lauffähig, wogegen im zweiten Fall ein 
Rechner mit 80286-, 80386- oder 80486-Prozessor 
erforderlich ist. 

Bestimmt die zu wählende Bibliothek für Fließkommabe¬ 
rechnungen. »Emulate« nutzt einen Coprozessor, falls 
vorhanden, emuliert diesen aber auch, wenn er nicht 
installiert ist. Mit »NPX (87)« erzeugen Sie direkt 
Maschinencode für einen Coprozessor. Eine Programm¬ 
ausführung auf einem Rechner ohne Coprozessor ist 
dann nicht mehr möglich. Mit »Procedure« steht Ihnen 
eine weitere Bibliothek für Fließkomma-Berechnungen 
zur Verfügung, die die Rechengeschwindigkeit auch 
ohne Coprozessor beschleunigt. 

»On« sorgt dafür, daß Datenfelder automatisch auf 
zehn Elemente dimensioniert werden. »Off« schaltet 
diese Dimensionierung, die auch für andere Basic-Dia- 
lekte typisch ist, aus. In diesem Fall muß jedes Datenfeld 
explizit dimensioniert werden. 

Schalten Sie dieses Menü auf »On«, kann Ihr Programm 
während Ein-und Ausgaben mit der Tastenkombination 
( Strq 1 4- 1 Break 1 bzw. 1 Strq 1 + I Untbr 1 abgebrochen 
werden. Bei »Off« ist ein vorzeitiger Programmabbruch 
und damit die Rückkehr zum Betriebssystem nicht möglich. 

Mit diesem Menü haben Sie die Möglichkeit, speziellen 
Code für die Programmüberwachung zu erzeugen. Mit 
Hilfe dieser Testroutinen können Sie während der Pro¬ 
grammentwicklung Systemabstürze vermeiden. Dazu 
sollten Sie sämtliche Error-Schalter auf »On« setzen. Zur 
Reduzierung der Code-Größe können Sie ein ausge¬ 
testetes Programm je nach Bedarf auch ohne diese 
Fehlertests übersetzen lassen. 

Überprüfung, ob genügend Stapelspeicher für lokale 
Variablen und Parameterwerte von Unterprogrammen 
und Funktionen vorhanden ist. 
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Bounds fest On: 

Overflow fest 
On: 

Numeric fest On: 
Porom fest On: 
Metastatements: 
Stack Size: 

Music Buffer: 

Com Buffer: 

Alloc string seg: 


Überprüfung, ob die Grenzen von Datenfeldern einge¬ 
halten werden. 

Überprüfung von Ganzzahlen- und Fließkommazahlen- 
Datentypen auf Bereichsüberschreitung. 

Überprüfung, ob Rechenfehler entstehen, wie z.B. 
Division durch Null. 

Überprüfung auf interne Fehler. Sollte standardmäßig 
auf »On« gesetzt sein. 

Mit diesem Menü können spezielle Speicherbereiche in 
ihrer Größe festgelegt werden. 

Änderung der Größe des Stapelspeichers (von stan¬ 
dardmäßig 1536 auf maximal 32766 Byte). 

Pufferspeicher für Hintergrundmusik festlegen (0 bis 
maximal 8 Noten, wobei jede Note 8 Byte Speicher 
belegt). 

Pufferspeicher für seriellen Datenaustausch über COM 1 
und COM2 festlegen (0 bis maximal 32767 Byte). 

Größe neu belegter Zeichenkettensegmente festlegen 
(voreingestellt 32, was 32750 Byte entspricht). Durch 
die Reduzierung dieses Werts können Sie mehr Zei¬ 
chenketten in Ihrem Programm benutzen, die maximale 
Länge einer Zeichenkette wird dann allerdings redu¬ 
ziert. Sie können die Werte 1,2 ,4, 8, 16 und 32 als 
Segmentgröße festlegen, was einer jeweiligen String¬ 
länge von 1006, 2030, 4078, 8174, 16366 bzw. 
32750 Zeichen entspricht. 


Linker 

Über das Linker-Menü können Sie explizit festlegen, welche Module aus 
der Power-Basic-Laufzeitbibliothek in ein Programm mit eingebunden 
werden sollen. Damit läßt sich die Programmgröße eines eigenständig 
ablauffähigen Maschinenprogramms reduzieren. 

Seriell Com- Keine Routine für die serielle Schnittstelle in das Pro- 
munications off: gramm einbinden. 
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Printer Off 

Keine Anweisungen zur Druckerunterstützung ein¬ 
binden (parallele Schnittstelle). 

Full floot 
emulotion Off: 

In diesem Fall werden nur die benötigten mathemati¬ 
schen Funktionen in Ihr Programm eingebunden. Schal¬ 
ten Sie dieses Menü auf »On«, so wird die komplette 
Bibliothek zur Emulation der Fließkommaberechnungen 
mit eingebunden. 

Interpreted 

Print Off: 

Sämtliche ASCII-Zeichen (auch ASCII 0 bis ASCII 32) 
werden als darstellbare Zeichen ausgegeben. Steht der 
Menüschalter auf »On«, werden die ASCII-Zeichen von 
0 bis 32 als Steuerungscodes interpretiert. 

Graphics Off: 

In Ihr Programm werden keine Grafikroutinen mit einge¬ 
bunden. 

Video Cards: 

Hiermit können Sie wahlfrei festlegen, welche Grafik¬ 
karten Ihr Programm unterstützen soll. Unterstützt Ihr 
Programm lediglich die VGA-Karte, wie z.B. auch unser 
Programm HAUSHALT, so schalten Sie VGA auf »On« 
und alle übrigen Grafikkarten auf »Off« (Kapitel 2.10). 
Die Grafikbibliothek beinhaltet Routinen für die CGA-, 
EGA-, VGA- und Hercules-Grafikkarte. Werden oben¬ 
genannte Teilmodule in einem Programm benötigt, sind 
diese über den Schalter »On« in das Programm einzu¬ 
binden. 


Environment Umgebung 

Über diesen Menüpunkt können Sie die Power-Basic-Umgebung an Ihre 
eigenen Bedürfnisse anpassen. 


Config auto 
save On: 

Schalten Sie diesen Menüpunkt mit »On« ein, werden 
geänderte Konfigurationen automatisch gespeichert 
und auch beim nächsten Programmstart von Power 
Basic wieder aktiv. Dazu gehören z.B. die Optionen, 
die Sie für den Compiler und Linker festgelegt haben. 

Edit auto 
save On: 

Sorgt für eine automatische Zwischenspeicherung einer 
geänderten Quelldatei vor jedem Step over, Run oder 
OS Shell. 
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Warn On 
Overwrite On: 


Backup 
Files On: 


Tab Size: 


Zoom 

Windows On: 


Screen Size: 


Speichern Sie Dateien, die bereits auf dem Festspeicher 
vorhanden sind, erscheint eine Sicherheitsabfrage, ob 
Sie diese Datei überschreiben wollen. Beachten Sie, 
wenn Sie diese Option auf »Off« schalten, werden 
Dateien bei Namensgleichheit ohne Vorwarnung über¬ 
schrieben! 

Beim Speichern legt Power Basic von Ihrer Quelldatei 
automatisch eine Sicherungskopie mit dem Dateikürzel 
.BAK an. Diese wird im selben Verzeichnis abgelegt, in 
der sich Ihre Quelldatei befindet. Mit der Option »Off« 
können Sie das Erzeugen einer Sicherungskopie unter¬ 
drücken. Sie sollten regelmäßig Ihre Quelldatei zu¬ 
sätzlich auf Diskette speichern. 

Über diesen Menüpunkt kann die Sprungweite für die 
Tabulatortaste eingestellt werden (2 bis maximal 
16 Leerzeichen). Beachten Sie, daß bei der Ver¬ 
wendung von Tabulatoren standardmäßig Tab-Zeichen 
(ASCII 15) in den Quelltext geschrieben werden, die 
nicht von jedem Editor erkannt werden. Um statt dieser 
Tabulatoren Leerzeichen in den Quelltext zu schreiben, 
müssen Sie die Tastenkombination [strgl + föl + HiH 
betätigen. Am oberen Rand des Editor-Fensters 
wird angezeigt, ob Sie mit oder ohne Tabulatoren 
arbeiten. 

Mit diesem Menüpunkt können Sie das jeweils aktuelle 
Edit-, Watch- bzw. Output-Fenster auf Bildschirmgröße 
zoomen. »Off« stellt das Edit- und Watch-Fenster paral¬ 
lel auf dem Bildschirm dar. 

Unter der Voraussetzung, daß Sie über die entsprechen¬ 
de Hardware verfügen, können Sie die Anzahl der 
parallel auf dem Bildschirm dargestellten Zeilen erhö¬ 
hen. Standardmäßig werden 25 Zeilen auf dem Bild¬ 
schirm dargestellt, bei einer EGA-Karte können jedoch 
auch 43 und bei einer VGA-Karte sogar 50 Zeilen 
ausgegeben werden. 


184 





Referenz 


Directories Verzeichnisse 


Unter diesem Punkt können Sie spezielle Verzeichnisse für bestimmte 
Dateien von Power Basic festlegen. 


Power Basic 
directory: 


Executable 

directory: 


Include 

directories: 


Unit Source 
directories: 


Unit Destination 
directory: 


Object 

directories: 


Festlegung des Suchpfades für die Power-Basic-Hilfs- 
und Konfigurationsdatei. Diese Dateien werden in Ver¬ 
bindung mit der Entwicklungsumgebung benötigt. 

Angabe eines Verzeichnisses, in das die vom Compiler 
erstellte Programmdatei gespeichert werden soll. Ohne 
eine Angabe wird die EXE-Datei im aktuellen Verzeich¬ 
nis gespeichert. 

Suchpfadfestlegung der Einfügedateien. Mehrere Pfade 
können durch ein Semikolon getrennt eingegeben wer¬ 
den. In diesen Verzeichnissen sucht der Compiler später 
nach benötigten Include-Dateien. Ohne eine Angabe 
von Verzeichnissen wird nur im aktuellen Verzeichnis 
gesucht. 

Auch für die Quelldateien der Units (Funktionsbibliothe¬ 
ken) können mehrere Pfade, durch Semikolon getrennt, 
eingegeben werden. 

In diesem Verzeichnis werden die übersetzten Units 
(PBU-Dateien) abgespeichert. Geben Sie hier keinen 
Pfad an, werden die Units im aktuellen Verzeichnis 
gespeichert. Benötigt der Compiler später eine Unit, 
sucht er zunächst im aktuellen und anschließend in dem 
hier angegebenen Verzeichnis 

Hier können Sie ein Verzeichnis angeben, in dem Sie 
die Module eines Assemblers speichern (OBJ- und 
COM-Dateien), die später in ein Power-Basic-Programm 
integriert werden sollen. Benötigt der Compiler ein 
Assembler-Modul, so sucht er zunächst im aktuellen und 
anschließend in dem hier angegebenen Verzeichnis. 
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Pick File Name: Unter diesem Menüpunkt können Sie das Verzeichnis 
und den Dateinamen für die Pick-Liste festlegen (stan¬ 
dardmäßig PBPICK.PBP). In dieser Datei werden später 
die Dateinamen gespeichert, die Sie über den Menü¬ 
punkt File Pick bzw. mit lAitl + ffJl zur Auswahl 
angezeigt bekommen. 

Current Pick File: Unter diesem Menüpunkt erhalten Sie die aktuellen 
Informationen zu Pfad und Dateinamen der aktuellen 
Pick-Datei. 

Parameters Parameter 

Unter diesem Menüpunkt können Sie innerhalb der Entwicklungsumge¬ 
bung einen Kommandostring definieren, der von einem Programm, inner¬ 
halb der Oberfläche von Power Basic, über die Funktion COMMAND$ 
genutzt werden kann. 

Save Options Optionen sichern 

Speicherung aller gewählten Optionen für Compiler, Linker und Environ¬ 
ment in eine Konfigurationsdatei. 


Retrieve Options Optionen holen 

Laden einer Konfigurationsdatei. Sie können mit mehreren Konfigurations¬ 
dateien arbeiten, die Sie je nach Bedarf und Projekt laden können. 


4.1.6 Das Menü »Debug« 

In diesem Menü sind wichtige Befehle für den Debugger zusammengefaßt, 
die die Fehlersuche in Programmen vereinfachen sollen. 

Evaluate Auswertung fstrql + nD 

Uber diesen Menüpunkt können Sie während des Debuggens Variablen¬ 
werte ändern (Kapitel 3.1) und somit die Programmausführung beein¬ 
flussen. 
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Callstack Programmlauf zeigen [strgi + fFT) 

Über diesen Menüpunkt können Sie sich während des Debuggens Infor¬ 
mationen darüber ausgeben lassen, wie Sie an die derzeit aktuelle 
Programmposition gelangt sind. Sie können sehen, in welcher Reihenfolge 
Funktionen und Unterprogramme aufgerufen wurden. 


Find SUB/function/ 

label Unterprogramm/Funktion/Marke suchen 

Nachdem Sie Ihr Programm kompiliert haben, können Sie über diesen 
Menüpunkt gezielt nach Namen von Unterprogrammen, Funktionen und 
Sprungmarken suchen lassen. Dabei werden auch zu einem Hauptpro¬ 
gramm gehörende Einfügedateien (Include-Dateien) und Funktionsbiblio¬ 
theken (Units) berücksichtigt. 

Integrated Debugging Fehlersuche 

Mit »On« schalten Sie den Debugger-Modus ein und mit »Off« aus. 
Innerhalb der Oberfläche steht Ihnen geringfügig mehr Speicher für das 
auszuführende Programm zur Verfügung, wenn Sie den Debugger aus¬ 
schalten. 


MAP File MAP-Datei 

Hiermit können Sie den Debugger anweisen, eine spezielle MAP-Datei zu 
erzeugen, wenn Sie eine ausführbare EXE-Datei erstellen (Compile —► 
Destination —► EXE file ). Dann haben Sie die Möglichkeit, einen externen 
Debugger zu benutzen, um ein Power-Basic-Programm nach Fehlern zu 
durchsuchen. Verfügen Sie nicht über einen externen Debugger, sollten 
Sie diese Option auf »Off« stellen, da sonst die Größe der erzeugten 
Programmdateien durch zusätzliche Debugger-Informationen unnötig er¬ 
höht wird. 

Display swapping Bildschirmumschaltung 

Über diesen Menüpunkt können Sie festlegen, ob und auf welche Weise 
während der Debugger-Phase der Bildschirm umgeschaltet wird. Zum 
einen muß ja die Entwicklungsumgebung angezeigt werden, und zum 
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anderen müssen auch die Ausgaben durch das Programm selbst darge¬ 
stellt werden. Bei »Smart« wird immer dann zu Ihrem Programmbildschirm 
umgeschaltet, sobald Ihr Programm eine Bildschirmausgabe vornimmt. 
»Always« hingegen schaltet nach jeder Anweisung den Bildschirm um. 
Diese Methode ist besonders sinnvoll, wenn Sie den Bildschirmspeicher 
von Power Basic direkt manipulieren. Mit »None« können Sie die Um¬ 
schaltung zwischen den Bildschirmen unterdrücken. 

Refresh Display Bildschirmauffrischung 

Mit diesem Menüpunkt können Sie den Bildschirmaufbau der integrierten 
Entwicklungsumgebung wieder korrigieren, falls Ihr Programm den Bild¬ 
schirm zum Teil überschrieben hat. 


4. J.7 Das Menü »Break/Watch« 

Dieser Menüpunkt enthält die wichtigsten Anweisungen, die Sie in Ver¬ 
bindung mit dem Debugger benötigen. Über dieses Menü können Sie 
Variablen verfolgen und Haltepunkte setzen (Kapitel 3.1). 


Add watch Variable verfolgen Istrg) + (fT) 

Über diesen Menüpunkt können Sie eine Variable eingeben, deren Werte 
Sie im Watch-Fenster verfolgen wollen. Auch Ausdrücke lassen sich in 
Power Basic verfolgen. 

Delete watch Variable löschen 

Über diesen Menüpunkt können Sie den Befehl zur Verfolgung einer 
Variablen wieder rückgängig machen. 


Edit watch Variable bearbeiten 

Haben Sie die zu verfolgende Variable falsch eingegeben, können Sie 
über diesen Menüpunkt eine Korrektur vornehmen. 
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Remove all 

watches alle Variablen löschen 

Mit dieser Menüanweisung können Sie sämtliche Variablen aus dem 
Watch-Fenster wieder entfernen. 

Toggle 

breakpoint Haltepunkt setzen istrg) + rF8] 

Über diesen Menüpunkt können Sie Haltepunkte setzen bzw. wieder 
löschen. Positionieren Sie dazu den Textcursor im Editor genau in die 
Quelltextzeile, an der der Haltepunkt eingefügt oder gelöscht werden soll. 

Clear all 

breakpoints Haltepunkt löschen 

Mit dieser Menüanweisung löschen Sie sämtliche Haltepunkte, die Sie in 
dem Programm gesetzt haben. 

View next 

breakpoint nächsten Haltepunkt zeigen 

Mit diesem Menüpunkt springen Sie im Editor zum jeweils nächsten 
Haltepunkt. Ist der letzte Haltepunkt im Programm erreicht, wird wieder 
mit dem ersten begonnen. 

4»2 Sprachreferenz 

Anschließend finden Sie sämtliche Befehle, die Sie in Power Basic 
verwenden können, mit einer kurzen Erläuterung und einer Kurzfassung 
der Syntax. Genauere Informationen können der Hilfefunktion und den 
Handbüchern von Power Basic entnommen werden. Sämtliche Anweisun¬ 
gen sind speziellen Themenkreisen zugewiesen. Wenn mehrere Befehle 
in mehrere Teilbereiche eingruppierbar sind, werden die Funktionen dem 
häufigeren Einsatzgebiet zugeordnet. Optionale Parameter sind in eckige 
Klammern eingefaßt, Alternativmöglichkeiten werden durch » I « getrennt. 
Einige Anweisungen wurden zur Veranschaulichung vereinfacht. 
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4.2. 7 Compiler-Anweisungen 

$COM 

Speicherplatz für den Empfangspuffer der seriellen Schnittstellen reservie¬ 
ren. Diese Festlegung bezieht sich auf alle vier der von Power Basic 
unterstützten Ports. 

$COM Größe in Byte 


$COMPILE 

Legt fest, ob ein Quelltext in den Speicher, in eine ausführbare Programm¬ 
datei, ein CH/4/N-Modul oder eine Funktionsbibliothek übersetzt werden 
soll. 

$COMPILE MEMORY|EXEI CHAIN|UNIT 

$CPU 

Legt fest, für welchen Prozessor das Programm erzeugt wird. 

$CPU 8086180286 

$DEBUG 

Legt fest, ob eine MAP-Datei für einen externen Debugger erzeugt werden 
soll. 

$DEBUG MAP [ONI+IOFFI-] 

$ DYNAMIC 

Datenfelder werden standardmäßig als dynamische Datenfelder verwal¬ 
tet. Die Größe der Datenfelder wird während des Programmlaufs fest¬ 
gelegt. 

$DYNAMIC 
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$ERROR 

Legt fest, welche Fehlerkontrollcodes in ein Programm eingebunden werden 
sollen. 

$ERROR Test [Status],... 

Test = BOUNDS, NUMERIC, OVERFLOW, PARAM, STACK, ALL 
Status= ON, +, OFF, - 


$ EVENT 

Legt fest, ob Programmcode für die Ereignisverfolgung erzeugt wird oder 
nicht. 

$EVENT ON|+|OFF|- 

$FLOAT 

Festlegung der Fließkommabibliothek. 

$FLOAT EMULATE|NPX|PROCEDURE 

$ IF/$ELSE/$ ENDIF 

Programmteile werden nur übersetzt, wenn eine bestimmte Konstante 
definiert ist (konditionale Konditionierung). 

$IF Konstante 

'Anweisungen 
[$ELSE 

' Anweisungen] 

$ENDIF 


$INCLUDE 

Weist den Compiler an, eine Quelldatei einzubinden. 

$INCLUDE Dateiname 


$INLINE 

Weist den Compiler an, Maschinencode direkt in ein Programm einzu¬ 
fügen. 

$INLINE Dateiname|Bytefolge 
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$UB 

Legt fest, welche Module der Laufzeitbibliothek in das ausführbare 
Maschinenprogramm mit eingebunden werden. 

$LIB Bibliothek [Status] 

Bibliothek: COM, LPT, GRAPH, CGA, EGA, VGA, HERC, 

ULLFLOAT, IPRINT, ALL 
Status: ON, + , OFF, - 


$LINK 

Weist den Compiler an, eine Objekt- oder Unit-Datei in das Programm 
mit einzubinden. 

$LINK Dateiname 


$ OPTION 

Festlegung von Compiler-Optionen. 

$OPTION Option [Status],... 

Option: AUTODIM, CNTBREAK 
Status: ON, +, OFF, - 


$SEGMENT 

Deklariert ein neues Code-Segment. 

$SEGMENT 

$SOUND 

Legt die Puffergröße für Hintergrundmusik fest. 

$SOUND Größe in Byte 


$ STACK 

Festlegung des Stapelspeichers. 

$STACK Größe in Byte 
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$STATIC 

Datenfelder werden standardmäßig als statisch deklariert, d.h., die Größe 
des Datenfeldes ist bereits während der Übersetzung festgelegt. 

$STATIC Größe in Byte 


$STRING 

Legt die Segmentgröße für Zeichenketten fest. 

SSTRING 1|2|4|8|16|32 

4.2.2 Compiler-Daten und Variablendeklarationen 

DATA 

Konstantendefinition, die später durch RE/AD-Befehle gelesen werden. 

DATA Konstante,... 


DEFBCD 

Variablen als BCD-Fließkommazahlen deklarieren. 

DEFBCD Buchstabenbereich 

DEFDBL 

Variablen als Fließkommazahlen mit doppelter Genauigkeit deklarieren. 

DEFDBL Buchstabenbereich 


DEFEXT 

Variablen als Zahlen mit erweiterter Genauigkeit deklarieren. 

DEFEXT Buchstabenbereich 


DEFFIX 

Variablen als Flex-String deklarieren. 


DEFFLX Buchstabenbereich 
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DEFINT 

Variablen als Ganzzahlen deklarieren. 

DEFINT Buchstabenbereich 


DEFLNG 

Variablen als lange Ganzzahlen deklarieren. 

DEFLNG Buchstabenbereich 


DEFQUD 

Variablen als Quad-Integer deklarieren. 

DEFQUD Buchstabenbereich 


DEFSNG 

Variablen als Fließkommazahlen mit einfacher Genauigkeit deklarieren. 

DEFSNG Buchstabenbereich 


DEFSTR 

Variablen als String deklarieren. 

DEFSTR Buchstabenbereich 


EXTERNAL 

Variablen aus einem Hauptprogramm innerhalb einer Unit als extern 
deklarieren [PUBLIC]. 

EXTERNAL Variable,... 


LOCAL 

Variablen innerhalb einer Funktion oder eines Unterprogramms als lokal 
deklarieren. Die Variable ist im Hauptprogramm dann nicht bekannt. 

LOCAL Variable,... 
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PUBLIC 

Variablen in einem Hauptprogramm für eine Unit oder Objektdatei als 
öffentlich deklarieren (EXTERNAL). 


SHARED 

Variablen innerhalb eines Hauptprogramms als global deklarieren. 

SHARED Variable,... 


STATIC 

Variablen innerhalb eines Unterprogramms oder einer Funktion als 
statisch deklarieren. Statische Variablen werden nur am Programmanfang 
initialisiert und anders als lokale Variablen nicht bei jedem Unterpro¬ 
gramm- bzw. Funktionsaufruf wieder auf den Wert Null bzw. eine 
Nullzeichenkette gesetzt. 

STATIC Variable,... 


SWAP 

Vertauschung von zwei Variablenwerten. 

SWAP Variabiel, Variable2 


4.2.3 Dateien 

CLOSE 

Befehl zum Schließen von Dateien. 

CLOSE #Dateinummer,... 

EOF 

Dateiende-Status abfragen. Diese Funktion gibt einen Wert ungleich Null 
zurück, wenn das Dateiende erreicht ist. 

y=EOF(Dateinummer) 
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FIELD 

Datenfeld-Definition im Dateipuffer für Direktzugriffsdateien. 

FIELD #Dateinummer, Größe AS Stringvariable,... 

FILEATTR 

Dateiinformation abfragen (l=lnput, 2=Output, 4=Random, 8=Append, 
1 6=Binär). 

y=FILEATTR(Dateinummer,1) 

FREEFILE 

Freie Dateinummer ermitteln. 

y=FREEFILE 

GET 

Datensatz einiesen. 

GET #Dateinummer, Datensatznummer 

GET$ 

Zeichenkette aus einer binären Datei lesen. 

GET$ #Dateinummer, Anzahlzeichen, Stringvariable 


INPUT# 

Daten aus einer sequentiellen Datei lesen und Variablen zuweisen. 

INPUT #Dateinummer, Variable,... 


LINE INPUT# 

Eine Zeile aus einer sequentiellen Datei einiesen. 

LINE INPUT #Dateinummer, Stringvariable 
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LOC 

Position innerhalb einer Datei zurückliefern. 

y=LOC(Dateinummer) 


Referenz 


LOCK 

Zugriff im Netzwerk für bestimmte Datensätze sperren. 

LOCK #Dateinummer, Datensatz 

LOCK #Dateinummer, ErsterDatensatz TO LetzterDatensatz 


LOF 

Dateigröße in Byte ermitteln. 

y=LOF(Dateinummer) 

LSET 

Feldvariablen linksbündig in den Puffer einer Direktzugriffsdatei ein¬ 
tragen. 

LSET FeldVariable=Zeichenkette 


OPEN 

Datei öffnen. 

OPEN Datei [FOR Modus] [ACESS Zugriff] [sperren] AS #Nummer [LEN=Länge] 
Modus: OUTPUT, INPUT, APPEND, RANDOM, BINARY 

Zugriff: READ, WRITE, READ WRITE 

Sperren: SHARED, LOCK READ, LOCK WRITE, LOCK READ WRITE 

PRINT# 

Werte in eine sequentielle Zeile schreiben. 

PRINT #Dateinummer, Variable,... 
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PRINT# «SING 

Werte formatgebunden in eine sequentielle Datei schreiben. 

PRINT #Dateinummer, USING Formatstring; Folge von Ausdrücken [;] 


PUT 

Datensatz in eine Direktzugriffsdatei schreiben. 

PUT #Dateinummer[, Datensatznummer] 


PUT$ 

Zeichenkette in eine binäre Datei schreiben. 

PUT #Dateinummer, Zeichenkette 


RESET 

Dateipuffer auf Festspeicher sichern und alle offenen Dateien bzw. Peri¬ 
pheriegeräte schließen. 

RESET 


RSET 

Feldvariablen rechtsbündig in den Puffer einer Direktzugriffsdatei ein¬ 
tragen. 

RSET FeldVariable=Zeichenkette 


SEEK 

Funktion, um die nächste Datensatznummer in einer Direktzugriffsdatei 
bzw. die Byte-Position in einer sequentiellen oder Binärdatei zu ermitteln. 

s=SEEK(Dateinummer) 
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SEEK 

Befehl, um den Zeiger auf eine bestimmte Position innerhalb einer 
Random- oder Binärdatei zu setzen. 

SEEK #Dateinummer, Position 

UNLOCK 

Aufhebung von Dateizugriffsbeschränkungen. 

UNLOCK #Dateinummer, Datensatz 

UNLOCK #Dateinummer, ErsterDatensatz TO LetzterDatensatz 


WRITE# 

Schreiben von Werten in eine sequentielle Datei. Gegenüber PRINT # 
dürfen die Ausdrücke auch Feldtrenner, z.B. Kommata, enthalten. 

WRITE #Dateinummer, Liste von Ausdrücken 


4.2.4 Datenfeldoperationen 

ARRAY SORT 

Beliebiges Datenfeld sortieren (hier vereinfacht). 

ARRAY SORT Feld ([index]) [FOR zahl][,ASCEND|DESCEND] 
ASCEND =aufsteigende Sortierung 
DESCEND=absteigende Sortierung 


ARRAY SCAN 

Datenfeld nach einem bestimmten Element durchsuchen (hier vereinfacht). 

ARRAY SCAN Feld ([index]) [FOR zahl], Operator, TO iVar 


ARRAY INSERT 

Ein Element in ein Datenfeld einfügen. 

ARRAY INSERT Feld ([index]) [FOR zahl] [,Ausdruck] 
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ARRAY DEUTE 

Ein Element aus einem Datenfeld löschen. 

ARRAY DELETE Feld ([index]) [FOR zahl] [,Ausdruck] 

DIM 

Anweisung zum Dimensionieren von Datenfeldern. Sowohl die obere 
Feldgrenze als auch die untere ist frei festlegbar. Ferner kann bereits bei 
der Dimensionierung festgelegt werden, ob ein Datenfeld statisch oder 
dynamisch sein soll. 

DIM [STATIC|DYNAMIC] Feldname(UntereGrenze:ObereGrenze). 

ERASE 

Löschen dynamischer und Zurücksetzen statischer Datenfelder. 

ERASE Datenfeldname,... 


LBOUND 

Untere Feldgrenze eines Datenfeldes ermitteln. 

y=LBOUND(Datenfeld(Dimension)) 

MAP 

Definition dynamischer Datenstrukturen bzw. Variablendefinition einer 
Direktzugriffsdatei (hier vereinfacht). 

Mit Flex-String: 

MAP Haupt$$ *Länge, TeilLänge AS Unter$$,... 

Mit Direktzugriffsdatei: 

MAP #Dateinummer, Länge AS Variable$$ 
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OPTION BASE 

Untere Datenfeldgrenze festlegen. Diese Grenze darf zwischen 0 und 
32767 liegen. Für Binärdateien können Sie die untere Grenze, also die 
erste Byte-Position, entweder auf 0 oder 1 setzen. 

OPTION [ARRAYIBINARY] BASE UntereGrenze 


REDIM 

Neudimensionierung bzw. Löschen von dynamischen Datenfeldern. 

REDIM Datenfeld(UntereGrenze:ObereGrenze) , ... 


UBOUND 

Obere Feldgrenze eines Datenfeldes ermitteln. 

y=UBOUND(Datenfeld(Dimension) ) 


4.2.5 DOS-Anweisungen 


ATTRIB 

Funktion zum Ermitteln eines DOS-Dateiattributes. 

y=ATTRIB(Dateiname) 

ATTRIB 

Befehl zum Setzen eines DOS-Dateiattributes (attribute: 1 =nur lese, 2=ver- 
steckt, 4=Systemdatei, 32=Archiv). 

ATTRIB Dateiname, Attribut 


CHDIR 

Aktuelles Verzeichnis wechseln. 

CHDIR Pfad 
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CHDRIVE 

Aktuelles Laufwerk wechseln (A, B, C usw.). 

CHDRIVE Laufwerk 


COMMAND$ 

Aufrufparameter ermitteln, die beim Programmstart verwendet wurden. 

a$=COMMAND$ 

CURDIR$ 

Aktuelles Verzeichnis auf einem beliebigen Laufwerk ermitteln. 

a$=CURDIR$(Laufwerk) 


DATE$ 

Systemdatum ermitteln. 

a$=DATE$ 


DATE$ 

Systemdatum setzen. 

DATE$= a$ 


DIR$ 

Dateinamen einer entsprechenden Maske ermitteln (z.B. *.BAS oder *. *). 
Der erste Aufruf legt die Maske fest und ermittelt den ersten passenden 
Dateieintrag. Nachfolgende Aufrufe in der Form o$=DIR$ geben jeweils 
den nächsten passenden Eintrag zurück (Kapitel 2.2). 

a$=DIR$ [(Maske[,Attribut])] 


ENVIRON 

DOS-Umgebungsbereich ändern (sinnvoll in Verbindung mit SHE/l-Befehl). 

ENVIRON Umgebungszeichenkette 
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ENVIRON$ 

Informationen aus der DOS-Umgebung ermitteln. 

a$=ENVIRON$(Parameterzeichenkette|Eintragsnummer) 


FILES 

Aktuelles Verzeichnis auf dem Bildschirm anzeigen. 

FILES [Maske] 

KILL 

Datei(en) von Diskette oder Festplatte löschen. 

KILL Dateiname|Maske 


MKDIR 

Unterverzeichnis anlegen. 

MKDIR Pfadname 


NAME 

Datei umbenennen. 

NAME AlterName AS NeuerName 


RMDIR 

Unterverzeichnis löschen. Beachten Sie, daß ein Unterverzeichnis nur 
gelöscht werden kann, wenn sich darin keine Dateien befinden! 

RMDIR Pfadname 


TIME$ 

Funktion zum Ermitteln der Systemzeit. 

a$=TIME$ 
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TIME$ 

Befehl zum Setzen der Systemzeit. 
TIME$=a$ 


4.2.6 Druckersteuerung 

LPOS 

Anzahl der Zeichen in der aktuellen Zeile des Druckerpuffers ermitteln 
(Drucker: 0 oder 1 =LPT1,2=LPT2, 3=LPT3). 

y=LPOS(Drucker) 

LPRINT 

Daten zum Drucker senden. 

LPRINT Variable, ...[;] 


LPRINT USING 

Daten formatiert zum Drucker schicken. 

LPRINT USING Formatzeichenkette; Variable [;] 


SPC 

Bestimmte Anzahl von Leerzeichen ausgeben (nur in Verbindung mit 
LPRINT, PRINT oder PRINT# verwendbar). 

SPC(Anzahl) 


TAB 

Bestimmte Anzahl von Leerzeichen ausgeben (nur in Verbindung mit 
LPRINT, PRINT oder PRINT# verwendbar). 

TAB(Anzahl) 
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WIDTH 

Zeilenbreite des Bildschirms, Druckers oder eines Kommunikations-Ports 
festlegen (Gerät: LPT1 ...LPT3, COM1 ...COM4, SCRN). 

WIDTH [Gerät|#Dateinummer,] Größe 


4.2.7 Eingabe- und Ausgabeanweisungen 

INKEY$ 

Zeichen aus dem Tastaturpuffer auslesen, ohne es auf dem Bildschirm 
auszugeben. 

a$=INKEY$ 

INPUT 

Eingabe anfordern und einer Variablen zuweisen. 

INPUT [Vorgabezeichenkette;] Variable,... 

INPUT$ 

Bestimmte Anzahl von Zeichen von der Tastatur oder aus einer Datei 
einiesen. 

a$=INPUT$(Anzahl)[,#Dateinummer] 


INSTAT 

Status des Tastaturpuffers ermitteln. Der Wert, den diese Funktion zurück¬ 
gibt, wird zu Null, sobald ein Zeichen im Tastaturpuffer enthalten ist. Ein 
Auslesen des Tastaturpuffers erfolgt durch diese Funktion nicht. 

y=INSTAT 

LINE INPUT 

Eine Zeile über die Tastatur einiesen, wobei Feldtrenner, wie z.B. Kom¬ 
mata, ignoriert werden. 


LINE INPUT [Vorgabezeichenkette;] Variable,... 
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PRINT 

Informationen auf dem Bildschirm ausgeben. 

PRINT Variable,...[;] 


PRINT USING 

Informationen formatgebunden auf dem Bildschirm ausgeben. 

PRINT USING Formatzeichenkette; Variable, ... 


READ 

Die Konstanten aus DATA-Zeilen in Variablen einiesen. 

READ Variable, . . . 


WRITE 

Werte, getrennt durch Kommata, auf dem Bildschirm ausgeben. 

WRITE Variable,... 


4.2.8 Ereignis- und Hardware-Verfolgung 

COM(n) 

Eingabe über serielle Schnittstelle erlauben bzw. unterbinden. 

COM 1|2|3|4 [ON|OFF|STOP] 

DELAY 

Programm für eine bestimmte Anzahl von Sekunden unterbrechen. 

DELAY Sekunden 


INR 

Ein Byte von einem I/O-Port lesen. 

y=INP(Port-Nummer) 
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I0CT1 

Kontrollstring an einen Gerätetreiber schicken. 

IOCTL #Dateinummer, Kontrollstring 


IOCTL$ 

Informationen von einem Treiber empfangen. 

s$=IOCT$(#Dateinummer) 


KEY 

Mit dieser Anweisung können die Definitionen von Funktionstasten vorge¬ 
nommen bzw. am unteren Bildschirmrand ein- bzw. ausgeschaltet werden. 

KEY 0N|OFF|LIST 

KEY Nummer, Zeichenkette 

KEY Nummer, CHR$(Shiftstatus, Scancode) 


KEY(n) 

Ein- bzw. Ausschalten der Überwachung für eine bestimmte Taste. 

KEY(Numme r) ON|OFF|STOP 

MTIMER 

Funktion zum Lesen des Mikrosekunden-Zählers. 

y=MTIMER 

MTIMER 

Befehl zum Setzen des Mikrosekunden-Zählers. 

MTIMER 

ON COM(n) 

Unterprogramm mit Sprungmarke festlegen, welches die eingehenden 
Daten der seriellen Schnittstellen empfängt. 

ON COM(1|2|3|4) GOSUB Sprungmarke 
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ON KEY(N) 

Sprungmarke festlegen, die beim Tastendruck einer bestimmten Taste 
angesprungen werden soll. 

ON KEY(Nummer) GOSUB Sprungmarke 


ON PEN 

Sprungmarke des Unterprogramms festlegen, welches bei der Status¬ 
änderung eines angeschlossenen Lichtgriffels angesprungen werden soll. 

ON PEN GOSUB Sprungmarke 


ON PLAY 

Unterprogramm festlegen, welches angesprungen wird, wenn der Musik¬ 
puffer nur noch eine bestimmte Anzahl von Noten enthält. 

ON PLAY (Notenzahl) GOSUB Sprungmarke 


ON STRIG 

Unterprogramm festlegen, welches ausgeführt werden soll, wenn der 
Knopf eines angeschlossenen Joysticks betätigt wird. 

ON STRIG (ButtonNummer) GOSUB Sprungmarke 


ON TIMER 

Unterprogramm festlegen, welches alle n Sekunden aufgerufen werden 
soll. 

ON TIMER(n) GOSUB Sprungmarke 


OPEN 

Peripheriegerät im Dateimodus öffnen. 

OPEN Name [FOR MODUS] AS #Dateinummer 
Name: KYBD - Tastatur 

SCRN - Bildschirm 

LPT1-3 - 1., 2. oder 3.parallele Schnittstelle 

COM1-4 - 1., 2 ., 3. oder 4. serielle Schnittstelle 
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OUT 

Wert direkt auf I/O-Port ausgeben. 

OUT Port-Nummer, Byte 


PEN 

Status des Lichtgriffels einiesen. 

y=PEN(Option) 


PEN 

Befehl zum Ein- bzw. Ausschalten des Lichtgriffels. 

PLAY ON|OFF|STOP 

PLAY 

Funktion zum Ermitteln der Notenanzahl im Musikpuffer. 

y=PLAY(x) 

PLAY 

Befehl zum Erzeugen von Musik. 

PLAY ON|OFF|STOP 
PLAY Zeichenkette 


STICK 

Stellung eines angeschlossenen Joysticks zurückliefern. 

y=STICK(Option) 


STRIG 

Status der Feuerknöpfe eines angeschlossenen Joysticks ermitteln. 

y=STRIG(Option) 
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STRIG 

Befehl zum Ein- bzw. Ausschalten der Joystick-Feuerknöpfe. 

STRIG ON|OFF 
STRIG(n) ON|OFF 

TIMER 

Anzahl der Sekunden ermitteln, die seit Mitternacht vergangen sind. 

y=TIMER 

TIMER 

Befehl zur Überwachung der TIMER- Ereignisse. 

TIMER ON|OFF|STOP 


4.2.9 Fehlerbehandlung 

ERADR 

Fehleradresse des zuletzt aufgetretenen Fehlers ermitteln. 

y&=ERADR 


ERDEV/ERDEV$ 

Fehlerstatus eines Peripheriegerätes bzw. eines Treiberprogramms ermit¬ 
teln. 

y=ERDEV 

y$=ERDEV$ 

ERL 

Zeilennummer des zuletzt aufgetretenen Fehlers im Programm ermitteln. 

y=ERL 
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ERR 

Fehlernummer des zuletzt aufgetretenen Fehlers im Programm ermitteln. 

y=ERR 

ERROR 

Befehl zum Simulieren eines Laufzeitfehlers. 

ERROR Fehlernummer 

ON ERROR 

Sprungmarke für Fehlerbehandlungsroutine festlegen. 

ON ERROR GOSUB Sprungmarke 

TROFF 

Programmverfolgung mit Ausgabe der Zeilennummern ausschalten. 

TROFF 

TRON 

Programmverfolgung mit Ausgabe der Zeilennummern einschalten. 

TRON 

4.2.10 Grafikanweisungen 

CIRCLE 

Kreis, Kreisausschnitt oder Ellipse zeichnen. 

CIRCLE [STEP] (x,y), Radius[,Farbe[,Startwinkel,Endwinkel][,Aspekt] 

DRÄW 

Makrosprache zum Zeichnen grafischer Figuren. 

DRAW Zeichenkette 
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GET 

Bildschirmausschnitt in ein Datenfeld kopieren. 

GET (xl, yl)-(x2 / y2), Datenfeld 

LINE 

Befehl zum Zeichnen von Linien und Rechtecken. 

LINE [STEP] (xl,yl)-[STEP] (x2 ; y2)[,Farbe][,B[F]] [,Muster] 

PAINT 

Befehl zum Ausfüllen von geschlossenen Flächen. 

PAINT (x ; y) [[,Farbe][,Grenze][,Hintergrund]] 


PALETTE/PALETTE USING 

Befehle zur Definition und Zuordnung von Farbpaletten. 

PALETTE Attribut, Farbe 

PALETTE USING Ganzzahldatenfeld(Index) 


PMAP 

Funktion, um physikalische Koordinaten in globale umzurechnen und 
umgekehrt. 

y=PMAP(x, Option) 

POINT 

Farbe eines Bildschirmpunkts bzw. Grafikcursor-Position ermitteln. 

Farbe=POINT(x,y) 

Position=POINT(Option) 


PRESET 

Einen Bildpunkt auf dem Grafikbildschirm löschen oder zeichnen. 

PRESET [STEP] (x,y) [,Farbe] 
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PSET 

Einen Bildpunktauf dem Grafikbildschirm löschen. 

PSET [STEP] (x,y) [,Farbe] 

PUT 

Inhalt eines Bildschirmausschnittes, der mit GET in ein Integer-Datenfeld 
gespeichert wurde, auf dem Grafikbildschirm ausgeben. 

PUT [STEP] (x,y), Ganzzahldatenfeld [/Option] 


VIEW 

Zeichenfläche bzw. Grafikfenster auf dem Grafikbildschirm definieren. 

VIEW [[SCREEN] [(xl,yl)-(x2,y2)[,[Farbe[,Grenze]]] 


WINDOW 

Globales Koordinatensystem für Grafikbildschirm definieren. 

WINDOW [SCREEN] (xl,yl)-(x2,y2) 

4.2 .77 Konvertierfunktionen 

ASC 

ASCII-Code eines Zeichens ermitteln. 

y=ASC(Zeichen) 


ASCII 

ASCII-Code des ersten Zeichens einer Zeichenkette ermitteln. 

y=ASCII(Zeichenkette) 
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BIN$ 

Ganzzahlen (Bereich: -32768 bis 65535) in binäre Zeichenkette konver¬ 
tieren. 

a$=BIN$(Ausdruck) 


CBCD 

Numerischen Ausdruck in BCD-Fließkommazahl umwandeln. 

y@@=CBCD(Ausdruck) 


CDBL 

Numerischen Ausdruck in doppeltgenaue Fließkommazahl umwandeln. 

y#=CDBL(Ausdruck) 


CEIL 

Nächstgrößere oder gleichgroße Ganzzahl zu einem numerischen Aus¬ 
druck ermitteln. 

y=CEIL(Ausdruck) 


CEXT 

Numerischen Ausdruck in Zahl mit erweiterter Genauigkeit umwandeln. 

y##=CEXT(Ausdruck) 


CFIX 

Numerischen Ausdruck in BCD-Festkommazahl umwandeln. 

y@=CFIX(Ausdruck) 


CHR$ 

ASCII-Zeichen(kette) aus ASCII-Code(s) erzeugen. 

a$=CHR$(Code,...) 


214 



CINT 

Numerischen Ausdruck in Ganzzahl umwandeln. 

y%=CINT(Ausdruck) 
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CLNG 

Numerischen Ausdruck in lange Ganzzahl umwandeln. 

y&=CLNG(Ausdruck) 


CQUD 

Numerischen Ausdruck in Quad-Ganzzahl umwandeln. 

y&&=CQUD(Ausdruck) 


CSNG 

Numerischen Ausdruck in einfachgenaue Fließkommazahl umwandeln. 

y!=CSNG(Ausdruck) 

CVB 

Zeichenkette aus einer Randomdatei in BCD-Fließkommazahl umwandeln. 

y@@=CVB(10-Byte-Zeichenkette) 


CVD 

Zeichenkette aus einer Randomdatei in doppeltgenaue Fließkommazahl 
umwandeln. 

y#=CVD(8-Byte-Zeichenkette) 


CVE 

Zeichenkette aus einer Randomdatei in Zahl mit erweiterter Genauigkeit 
umwandeln. 

y##=CVE(10-Byte-Zeichenkette) 
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CVF 

Zeichenkette aus einer Randomdatei in BCD-Festkommazahl umwandeln. 

y@=CVF(8-Byte-Zeichenkette) 


CVI 

Zeichenkette aus einer Randomdatei in Ganzzahl umwandeln. 

y%=CVI(2-Byte-Zeichenkette) 


CVI 

Zeichenkette aus einer Randomdatei in lange Ganzzahl umwandeln. 

y&=CVL(4-Byte-Zeichenkette) 


CVMD 

Stringvariable im Microsoft-Format aus einer Randomdatei in doppelt¬ 
genaue Fließkommazahl umwandeln. 

y#=CVMD(8-Byte-Microsoft-Zeichenkette) 


CVMS 

Stringvariable im Microsoft-Format aus einer Randomdatei in eine einfach¬ 
genaue Fließkommazahl umwandeln. 

y!=CVMS(4-Byte-Microsoft-Zeichenkette) 


CVQ 

Zeichenkette aus einer Randomdatei in Quad-Ganzzahl umwandeln. 

y&&=CVQ(8-Byte-Zeichenkette) 


CVS 

Zeichenkette aus einer Randomdatei in einfachgenaue Fließkommazahl 
umwandeln. 

y!=CVS(4-Byte-Zeichenkette) 
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HEX$ 

Numerischen Ausdruck in hexadezimale Zeichenkette umwandeln. 

a$=HEX$(Ausdruck) 


INT 

Ganzzahligen Anteil eines Argumentes ermitteln. 

y=INT(Ausdruck) 

MKB$ 

BCD-Fließkommazahl in Zeichenkette für Randomdatei umwandeln. 

Feld$=MKB$(Ausdruck) 


MKD$ 

Doppeltgenaue Fließkommazahl in Zeichenkette für Randomdatei umwan¬ 
deln. 

Feld$=MKD$(Ausdruck) 


MKE$ 

Zahl erweiterter Genauigkeit in Zeichenkette für Randomdatei umwan¬ 
deln. 

Feld$=MKE$(Ausdruck) 


MKF$ 

BCD-Festkommazahl in Zeichenkette für Randomdatei umwandeln. 

Feld$=MKF$(Ausdruck) 


MKI$ 

Ganzzahl in Zeichenkette für Randomdatei umwandeln. 

Feld$=MKI$(Ausdruck) 
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MKL$ 

Lange Ganzzahl in Zeichenkette für Randomdatei umwandeln. 

Feld$=MKL$(Ausdruck) 


MKMD$ 

Doppeltgenaue Fließkommazahl in Microsoft-Zeichenkettenformat für 
Randomdatei umwandeln. 

MSFeld$=MKMD$(Ausdruck) 


MKMS$ 

Einfachgenaue Fließkommazahl in Microsoft-Zeichenkettenformat für Ran¬ 
domdateien umwandeln. 

MSFeld$=MKMS$(Ausdruck) 


MKQ$ 

Quad-Ganzzahl in Zeichenkette für Randomdatei umwandeln. 

Feld$=MKQ$(Ausdruck) 


MKS$ 

Einfachgenaue Fließkommazahl in Zeichenkette für Randomdatei umwan¬ 
deln. 

Feld$=MKS$(Ausdruck) 


OCT$ 

Numerischen Ausdruck in oktale Zeichenkette umwandeln. 

a$=OCT$(Ausdruck) 


VAL 

Zeichenkette in eine Fließkommazahl umwandeln. 

y=VAL(Zeichenkettenausdruck) 
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4.2.12 Mathematische Funktionen 

ABS 

Absolutwert ermitteln. 


ATN 

Berechnung des Arcustangens (Bogenmaß) 

y=ATN(Ausdruck) 

COS 

Berechnung des Cosinus (Bogenmaß). 

y=COS(Ausdruck) 

DECR 

Numerische Variable um einen bestimmten Betrag abmindern. 

DECR Variable [,Betrag] 


EXP 

Ermittlung der Potenz zur Basis e (2.71 82...). 

y=EXP(Ausdruck) 

EXP2 

Ermittlung der Potenz zur Basis 2. 

y=EXP2(Ausdruck) 

EXP10 

Ermittlung der Potenz zur Basis 10. 

y=EXP10(Ausdruck) 
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FIX 

Nachkommastellen eines Argumentes abschneiden. 

y=FIX(Ausdruck) 

FIXDIGITS 

Anzahl der Dezimalstellen von BCD-Festkommazahlen bestimmen oder 
lesen. 

y=FIXDIGITS 

FIXDIGITS=Ausdruck 


INCR 

Numerische Variable, um einen bestimmten Betrag erhöhen. 

INCR Variable [,Betrag] 


LOG 

Berechnung des natürlichen Logarithmus (Basis e). 

y=LOG(Ausdruck) 


L0G2 

Berechnung des Logarithmus zur Basis 2. 

y=LOG2(Ausdruck) 

L0G10 

Berechnung des Logarithmus zur Basis 10. 

y=LOG10(Ausdruck) 

MAX% 

Größten Wert von Integer-Werten ermitteln. 

y%=MAX%(Argument,...) 
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MAX 

Größten Wert beliebiger numerischer Argumente ermitteln. 

y=MAX(Argument,...) 


MIN% 

Kleinsten Wert von Integer-Werten ermitteln. 

y%=MIN%(Argument/...) 


MIN 

Kleinsten Wert beliebiger numerischer Argumente ermitteln. 

y=MIN(Argument, . . .) 


RANDOMIZE 

Startwert für Zufallszahlengenerator setzen. 

RANDOMIZE (Ausdruck) 

RND 

Zufallszahl ermitteln. 

y=RND(Ausdruck) 

ROUND 

Funktion zur Rundung numerischer Werte auf eine bestimmte Anzahl von 
Dezimalzahlen. 

y=ROUND(Ausdruck, Stellenanzahl) 


SGN 

Vorzeichen ermitteln. 

y=SGN(Ausdruck) 
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SIN 

Berechnung des Sinus (Bogenmaß). 

y=SIN(Ausdruck) 

SQR 

Wurzelfunktion. 

y=SQR(Ausdruck) 

TAN 

Berechnung des Tangens (Bogenmaß). 

y=TAN(Ausdruck) 

4.2.13 Musik 

BEEP 

Ton erzeugen (insbesondere als Warnsignal in Anwendungsprogram¬ 
men). 

BEEP [Anzahl] 


SOUND 

Beliebige Töne erzeugen. 

SOUND Frequenz, Dauer 


4.2.14 Programmablaufsteuerung 

CALL 

Benutzerdefiniertes Unterprogramm aufrufen. 

CALL Unterprogrammname[(Parameter, . . .) ] 
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CAU ABSOLUTE 

Maschinenprogramm aufrufen (wird z.B. zur Konvertierung von GW- 
Basic-Programmen benötigt. 

CALL ABSOLUTE Adresse (Parameter) 

CALL INTERRUPT 

Aufruf eines System-Interrupts. 

CALL INTERRUPT Nummer 

CHAIN 

Chain-Modul (EXE- oder PBC-Datei) nachladen und ausführen (nicht 
innerhalb der Entwicklungsumgebung ausführbar!). 

CHAIN Dateiname 


COMMON 

Variablen für Chain-Module als global deklarieren. 

COMMON Variable,... 


DECLARE 

Benutzerdefinierte Funktionen und Unterprogramme aus Objektdateien 
oder Units deklarieren. 

DECLARE SUB|FUNCTION Name [(Parameter,...)] 

DEF FN/END DEF 

Ein- oder mehrzeilige Funktionen definieren (diese Funktionen sind nur 
lokal innerhalb eines Moduls nutzbar!). 

DEF FNname [(Parameter,...)]=Ausdruck 
DEF FNname [(Parameter,...)] 

: 'Anweisungen 
END DEF 
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DO-LOOP 

Schleifenkonstrukt. 

DO [Bedingung] 

:'Anweisungen 
LOOP [Bedingung] 

END 

Programm beenden und zum Betriebssystem zurückkehren. Über den 
optionalen Parameter kann ein Wert an das Betriebssystem zurückge¬ 
geben werden (in der Regel DOS-Fehlercode). 

END [Rückgabewert] 

EXECUTE 

Programm beenden und angegebenes Programm laden und ausführen. 

EXECUTE Dateiname 


EXIT 

Blockstruktur vorzeitig beenden. 

EXIT FUNCTION|SELECT|DEF|FOR|IF|LOOP|SUB 

FOR-NEXT 

Programmschleife. Wird keine Schrittweite angegeben, wird standard¬ 
mäßig 1 genommen. 

FOR Zählvariable= Anfangswert TO Endwert [STEP Schrittweite] 

:'Anweisungen 
NEXT Zählvariable 


FUNCTION/END-FUNCTION 

Definition einer benutzerdefinierten Funktion. 

FUNCTION Name [(Parameter,...)] [PUBLIC|PRIVATE] 
:'Anweisungen 
Name=Ergebnis 
END FUNCTION 
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GOSIIB 

Unterprogramm über Sprungmarke aufrufen. 

GOSUB Sprungmarke 


GOTO 

Programm an angegebener Sprungmarke fortsetzen. 

GOTO Sprungmarke 


IF 

Entscheidungsabfrage. 

IF Bedingung THEN Anweisung[en] [ELSE Anweisung[en]] 


IF-ELSE-ENDIF 

Blockstruktur der Entscheidungsabfrage. 

IF 1.Bedingung THEN 
:'Anweisungen 
[ELSEIF 2.Bedingung THEN 
:'Anweisungen] 

[ELSEIF n.Bedingung THEN 
: ' Anweisungen] 

[ELSE 

:'Anweisungen] 

END IF 

LET 

Diese Zuweisung ist nur aus Kompatibilitätsgründen zu älteren Basic-Dia- 
lekten implementiert und sollte in neueren Programmen nicht mehr einge¬ 
setzt werden (Variablenzuweisung). 

LET Variable=Ausdruck 


ON-GOSUB 

Ein Unterprogramm abhängig von einem Wert über Sprungmarke auf¬ 
rufen. 

ON Wert GOSUB Sprungmarke[,Sprungmarke, ... ] 
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ON/GOTO 

Die Programmausführung abhängig von einem Wert an der angegebenen 
Sprungmarke fortsetzen. 

ON Wert GOTO Sprungmarke[,Sprungmarke, ...] 


REG 

Befehl zum Setzen der Registerwerte für einen Interrupt-Aufruf. 

REG Register, Wert 


REG 

Funktion zum Auslesen von Registerwerten nach einem Interrupt-Aufruf. 

y=REG(Register) 


REM 

Einleitung von Kommentarzeilen (alternativ durch »'« möglich). 

REM Kommentar 


RESTORE 

DAIAZeiger für den nächsten RFAD-Befehl auf ein Anfangselement einer 
angegebenen Sprungmarke setzen. 

RESTORE Sprungmarke 


RESUME 

Programmausführung nach einer Fehlerbehandlungsroutine fortsetzen. 

RESUME 0|NEXT|Sprungmarke 


RETURN 

Unterprogramm, welches mit GOSUB aufgerufen wurde, beenden und an 
Stelle nach dem Aufruf zurückkehren bzw. Programm an angegebener 
Sprungmarke fortsetzen ... 

RETURN [Sprungmarke] 
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RUN 

Aktuelles Programm neu starten bzw. neues Programm ausführen (keine 
Variablenübergabe wie bei CHAIN möglich). 

RUN [Dateiname] 


SEEK 

Position des DALA-Zeigers in einer Random- oder Binärdatei ermitteln 
bzw. setzen. 

y=SEEK(Dateinummer) 

SEEK #Dateinummer / Position 

SELECT-CASE 

Blockstruktur (Auswahl). 

SELECT CASE Ausdruck 
CASE 1.Bedingung 
:'Anweisungen 
[CASE 2.Bedingung 
:'Anweisungen] 

[CASE n.Bedingung 
:'Anweisungen] 

[CASE ELSE 

:'Anweisungen] 

END SELECT 


SHELL 

Ausführen eines DOS-Befehls bzw. Starten eines Maschinenprogramms, 
wobei das Programm im Speicher verbleibt. Nach der Ausführung dieser 
Anweisung wird das Programm anders als bei EXECUTE fortgesetzt. 

SHELL [Befehl] 


STOP 

Programm abbrechen. 

STOP 
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SUB/END-SUB 

Definition eines benutzerdefinierten Unterprogramms, das später über 
CALL aufrufbar ist. 

SUB Name [(Parameter,...)] [PUBLIC|PRIVATE] 

:'Anweisungen 
END SUB 

SUB-INLINE/END-SUB 

Definition eines Unterprogramms, das nur aus Assembler-Code besteht. 

SUB Name INLINE 
$INLINE ... 

END SUB 

SYSTEM 

Programm beenden. Dieser Befehl ist nur aus Kompatibilitätsgründen zu 
älteren Basic-Dialekten in Power Basic vorhanden. 

SYSTEM 

WAIT 

Auf Wert vom I/O-Port warten. 

WAIT Port, n, m 


WHILE-WEND 

Schleifenkonstruktion. Die Schleife wird so lange ausgeführt, bis die 
bestimmte Bedingung erfüllt ist. 

WHILE Bedingung 
:'Anweisungen 
WEND 
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4.2.15 Speicherverwaltung und Speicherfunktionen 

BLOAD 

Speicherblock aus einer Datei lesen. 

BLOAD Dateiname [,Adresse] 


BSAVE 

Speicherblock in eine Datei speichern. 

BSAVE Dateiname, Adresse, Länge 


CLEAR 

Alle Variablen zurücksetzen und Ereignisverfolgung abschalten. 

CLEAR 

DEF-SEG 

Datensegment für Speicherfunktionen festlegen. 

DEF SEG [= Segment] 

ENDMEM 

Höchste unter DOS verfügbare Speicheradresse ermitteln. 

y=ENDMEM 

FRE 

Freien Speicherplatz ermitteln. 

y&=FRE(""|0|-11-2) 


MEMSET 

Obere Speichergrenze für Power Basic festlegen. 

MEMSET Adresse 
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PEEK 

Einzelnes Byte aus dem Speicher lesen. 

y%=PEEK(Adresse) 


PEEKI 

Speicherwort lesen (2 Byte). 

y%PEEK(Adresse) 


PEEKL 

4 Byte aus dem Speicher lesen. 

y&=PEEKL(Adresse) 


PEEK$ 

Bytefolge aus dem Speicher lesen. 

y$=PEEK$(Adresse, Anzahl) 


POKE 

Einzelnes Byte in den Speicher schreiben. 

POKE Adresse, Byte 


POKEI 

Speicherwort (2 Byte) in den Speicher schreiben. 

POKEI Adresse, Ganzzahl 


PÖKEL 

Vier Byte in den Speicher schreiben. 

PÖKEL Adresse, LangeGanzzahl 
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POKE$ 

Bytefolge in den Speicher schreiben. 

POKE$ Adresse, Zeichenkette 


STRPTR 

Offset einer Zeichenkettenvariablen ermitteln. 

y=STRPTR(Zeichenkette) 

STRSEG 

Speichersegment einer Zeichenkette ermitteln. 

y=STRSEG(Zeichenkette) 

VARPTR 

Offset einer Variablen ermitteln. 

y=VARPTR(Variable) 

VARPTR$ 

Adresse einer Variablen in Zeichenkettenform ermitteln. 

a$=VARPTR$(Variable) 


VARSEG 

Speichersegment einer Variablen ermitteln. 

y=VARSEG(Variable) 
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4.2.16 Stringoperationen 

EXTRACT$ 

Teilzeichenkette ab einem angegebenen Zeichen oder einer ange¬ 
gebenen Zeichenkette ermitteln. 

a$=EXTRAC$(Zeichenkette, [ANY] Teilzeichenkette) 


FLEXCHR$ 

Zeichen zum Auffüllen des Dateipuffers für Direktzugriffsdateien festlegen. 

FLEXCHR$=Zeichen 

y$=FLEXCHR$ 

INSTR 

Position einer Teilzeichenkette in einer Zeichenkette ermitteln. 

y=INSTR([n,] Zeichenkette, [ANY] Teilzeichenkette) 

LCASE$ 

Zeichenketten in Kleinbuchstaben umwandeln. 

a$=LCASE$(Zeichenkette) 


LEFT$ 

Linken Teil einer Zeichenkette ermitteln. 

a$=LEFT$(Zeichenkette, Länge) 


LEN 

Länge einer Zeichenkette ermitteln. 

y=LEN(Zeichenkette) 


232 



Referenz 


LTRIM$ 

Führende Zeichen bzw. Leerzeichen von einer Zeichenkette abspalten. 

a$=LTRIM$(Zeichenkette [, [ANY] Teilzeichenkette]) 


MAX$ 

Zeichenkette mit den größten ASCII-Codes ermitteln. 

y$=MAX$(Zeichenkette,...) 


MID$ 

Funktion, um eine Teilzeichenkette aus einer Zeichenkette zurückzuliefern. 

a$=MID$(Zeichenkette, Startposition [,Länge]) 


MID$ 

Befehl, um eine Teilzeichenkette in einer Zeichenkette zu ersetzen. 

MID$(Zeichenkette, Startposition [,Länge])=NeueTeilzeichenkette 


MIN$ 

Zeichenkette mit den kleinsten ASCII-Codes ermitteln. 

y$=MIN$(Zeichenkette, ...) 


REMOVE$ 

Zeichen bzw. Teilzeichenkette aus einer Zeichenkette entfernen. 

a$=REMOVE$(Zeichenkette, [ANY] Teilzeichenkette) 


REPEAT$ 

Zeichenkette aufbauen, die eine Vorgabezeichenkette n-mal enthält. 

a$=REPEAT$(n, Zeichenkette) 
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REPLACE 

Ersetzt eine Teilzeichenkette in einer Zeichenkette durch eine andere. 

REPLACE [ANY] Teilzeichenkette WITH NeueZeichenkette IN Zeichenkette 


RIGHT$ 

Rechten Teil einer Zeichenkette zurückliefern. 

a$=RIGHT$(Zeichenkette, Länge) 


RTRIM$ 

Rechte Zeichen bzw. Leerzeichen von einer Zeichenkette abspalten. 

a$=RTRIM$(Zeichenkette [,[ANY] Teilzeichenkette]) 


SPACE$ 

Zeichenkette mit n Leerzeichen zurückliefern. 

a$=SPACE$(n) 

STR$ 

Zahl in eine Zeichenkette umwandeln. 

a$=STR$(Zahl) 

STRING$ 

Zeichenkette aufbauen, die eine bestimmte Anzahl gleicher Zeichen 
enthält. 

a$=STRING$(Anzahl, ASCII-Code|Zeichen) 


TALLY 

Anzahl von Zeichen bzw. Teilzeichenketten in einer Zeichenkette ermit¬ 
teln. 

y=TALLY(Zeichenkette, [ANY] Teilzeichenkette) 
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UCASE$ 

Zeichenkette in Großbuchstaben umwandeln. 

a$=UCASE$(Zeichenkette) 


USING$ 

Formatstring definieren. 

a$=USING$(FormatZeichenkette, Ausdruck) 


VERIFY 

Zeichenkettenvergleich. Überprüfung, ob sämtliche Zeichen eines Strings 
in einem anderen enthalten sind. 

y=VERIFY([Start,]Zeichenkette, Teilzeichenkette) 


4.2.17 Textbildschirm 

CIS 

Bildschirm bzw. mit VIEW definierte Zeichenfläche löschen. 

CLS 

COLOR 

Bildschirmfarben im Grafikmodus festlegen. 

COLOR Hintergrund, Palette 
COLOR Vordergrund, Hintergrund 


COLOR 

Bildschirmfarben im Textmodus festlegen. 

COLOR [Vordergrund][,[Hintergrund][,Rahmen]] 
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CSRUN 

Aktuelle Zeile des Textcursors ermitteln. 

y=CSRLIN 


LOCATE 

Textcursor auf dem Bildschirm positionieren. 

LOCATE [Zeile],[Spalte][,Cursor][,Start][,Stop] 


SCREEN 

Funktion zum Ermitteln des ASCII-Codes bzw. des Attributes eines be¬ 
stimmten Zeichens auf dem Bildschirm. 

y=SCREEN(Zeile, Spalte [,Option]) 

SCREEN 

Befehl zum Setzen des Bildschirmmodus. 

SCREEN [Modus] [[,Farbe][,Zielseite][,AktiveSeite]] 


4 . 3 Schnellinformation: Wie kann ich... ? 

In diesem Kapitel werden einige Lösungswege für Programmierprobleme 
besprochen, die in der Praxis regelmäßig auftauchen. Hier haben Sie die 
Möglichkeit, sich Anregungen und Hinweise für Ihre eigenen Anwendun¬ 
gen zu holen. 


Dateiverwaltung 

... beliebige Suchpfade für Arbeitsdateien in einem Programm 
berücksichtigen? 

Führen Sie in Ihrem Programm eine Variable ein, in der das aktuelle 
Arbeitsverzeichnis gespeichert wird. Verwenden Sie anschließend für alle 
OPEN-Befehle eine Kombination aus Suchpfad und Dateinamen. 
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'Arbeitspfad setzen 
Verzeichnis$="C:\HAUSHALT\" 

'Datei im Suchpfad setzen 

OPEN Verzeichnis$+"TEST.DAT" FOR INPUT AS #1 

... herausfinden, ob eine Datei überhaupt existiert? 

Über die integrierte Power-Basic-Funktion DIR$ können Sie nicht nur 
Dateien des Verzeichnisses ermitteln, sondern auch feststellen, ob eine 
Datei überhaupt existiert. 

Dateiname$="TEST.DAT" 

IF LEN(DIR$(Dateiname$)>0 THEN 

'Datei ist vorhanden, wenn die Länge des 
'übereinstimmenden Dateinamens ungleich Null ist 
ELSE 

'Datei ist nicht vorhanden 
END IF 

... überprüfen, ob die richtige Diskette im Diskettenlaufwerk liegt? 

Geben Sie der Diskette über die DOS-Anweisung LABEL eine Bezeich¬ 
nung; diese können Sie über die D//?$-Funktion abfragen. Erst wenn der 
korrekte Name existiert, können Sie die Arbeiten mit dem Laufwerk 
zulassen. Diese Möglichkeit ließe sich speziell für Installationsprogramme 
nutzen. 

'Laufwerksbezeichnung A 
Bezeichnung$=("A:\", 8) 

'Laufwerksbezeichnung B 
Bezeichnung$=("B:, 8) 

'aktuelles Laufwerk 
Bezeichnung$=, 8) 

... eine sequentielle Datei komplett in den Speicher einiesen? 

Über eine WH/LE-WFND-Schleife, die FOF-Funktion und ein Datenfeld 
kann der Inhalt einer sequentiellen Datei in den Speicher eingelesen 
werden. Bedenken Sie, daß der Arbeitsspeicher begrenzt ist, so daß die 
Dateien nur bis zu einer begrenzten Größe verarbeitet werden können. 
In unserem folgenden Beispiel gehen wir davon aus, daß maximal 200 
Textzeilen in der einzulesenden Datei vorhanden sind. 

DIM Inhalt$(200) 

DNr=FREEFILE 
Dateiname$="TEST.TXT" 

OPEN Dateiname$ FOR INPUT AS #DNr 
Zeile%=l 
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WHILE NOT EOF(DNr) 

LINE INPUT #DNr, Inhalt$(Zeile%) 

DECR Zeile% 

WEND 

INCR Zeile% 

DOS 

... Systemvariablen in eigenen Programmen einsetzen? 

Systemvariablen des Betriebssystems werden auf DOS-Ebene durch den 
Befehl SET gesetzt und können durch die ENVIRON $-Funktion abgefragt 
werden. Nehmen wir an, die Systemvariable EMS enthält Informationen, 
wieviel EMS-Speicher in Kbyte maximal verwendet werden darf. Auf 
DOS-Ebene könnte dann der Befehl SET EMS=64 auf Kommandozeilen¬ 
ebene bzw. über die AUTOEXEC.BAT (vgl. Handbuch zum Betriebs¬ 
system) eingegeben werden. Die nachfolgenden Anweisungen erlauben 
dann einem Anwendungsprogramm diese unter DOS definierte Variable 
im Zeichenkettenformat einzulesen. 

'Systemvariable auslesen 
Variable$=ENVIRON$("EMS") 

'in numerisches Äquivalent 
Variable%=VAL(Variable$) 

'nun Weiterverwertung möglich 

Auf diese Art und Weise können Sie sowohl den Arbeitspfad für Ihr 
Programm, Ihre Grafikkarte oder auch die Existenz eines Coprozessors 
anmelden. 

... eine Arbeitsdatei direkt beim Programmstart an ein 
Anwendungsprogramm übergeben? 

Will man eine Arbeitsdatei direkt beim Programmstart mit angeben, kann 
dies ohne spezielle Programmierarbeit geleistet werden. Der Aufruf könnte 
für unser Programm HAUSHALT und die Datei HAUSHALT.DAT wie folgt 
aussehen. 

HAUSHALT HAUSHALT.DAT [Return] 

Da in den meisten Fällen ein Standardsuffix angehängt wird, ist es 
sinnvoller, die Datei nur ohne Suffix anzugeben. 

HAUSHALT HAUSHALT [Return] 
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In den nachfolgenden Zeilen wird die Zeichenkette, die beim Programm¬ 
start angegeben wird, über die COMMAND ^-Funktion ausgewertet. 

'Kommandostring einer Variablen zuweisen 
Datei$=COMMAND$ 

IF LEN(Datei$)=0 THEN 

'keine Datei gewählt 
Datei$="keine" 

ELSEIF RIGHT$(Datei$)<>".DAT" 

'u.U. Dateikürzel anhängen 
Datei$=Datei$+".DAT" 

END IF 

... Dateien vor Schreibzugriffen sichern? 

Verwenden Sie den A7T/?/ß-Befehl, um eine Datei gegen Zugriffe zu 
schützen. 

ATTRIB Dateiname$, 1 

... Dateien innerhalb eines Dateiverzeichnisses verstecken? 

Auch das Verstecken von Dateien ist über den ATTRIB-Befehl von Power 
Basic möglich. Benutzen Sie dazu die folgende Anweisung. 

ATTRIB Dateiname$ / 2 


Druckerausgabe 

... den Drucker so programmieren, daß bei einer kleinen Schrift auch 
mehr als 80 Zeichen in einer Zeile ausgebbar sind? 

Standardmäßig beträgt die Zeilenbreite des Druckers 80 Zeichen. Um 
mehr Zeichen in einer Zeile auszugeben, ist der W/DTH-Befehl zu ver¬ 
wenden. 

'Zeilenbreite auf 150 Zeichen festlegen 
WIDTH "LPT1", 150 

'Zeilenbreite nicht länger kontrollieren 
WIDTH "LPT1", 255 

Bei diesem Beispiel ist der Drucker an der ersten parallelen Schnittstelle 
angeschlossen. 
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... Druckersteuerzeichen zum Drucker senden; ohne jedesmal einen 
Zeilenvorschub auszulösen? 

Um Druckersteuerzeichen ohne Formfeed (Seitenvorschub) zum Drucker 
zu senden, ist LPRINT mit einem abschließenden Semikolon zu benutzen. 
Eine Anweisung für den Star SG-10/15 zum Einschalten des Doppeldruk- 
kes hat dann nachfolgende Form. 

LPRINT CHR$(27)"G"; 

... einen Seitenvorschub bzw. einen Zeilenvorschub bei einem Drucker 
(Matrix- und Laserdrucker) auslösen? 

Sowohl den Seitenvorschub als auch den Zeilenvorschub kann man über 
LPRINT auslösen. Die Steuerbefehle hierzu sind beim Matrix- und Laser¬ 
drucker identisch. 

'Zeilenvorschub (kein Semikolon!) 

LPRINT 

'Seitenvorschub 
LPRINT CHR$(12) 


Fehlerbehandlung 

... tun, wenn auf eine Datei nicht mehr zugegriffen werden kann? 

Wahrscheinlich haben Sie versucht, die Datei ein zweites Mal zu öffnen 
oder eine Dateinummer beim Öffnen ein zweites Mal eingesetzt. Über die 
RESET -Anweisung können Sie in einem solchen Fall sämtliche Dateien 
schließen, ohne das Programm beenden zu müssen. 

... in einem Programm eigene Fehler definieren , die über die 
Fehlerbehandlung verfolgt werden? 

Um einen Fehler zu simulieren, können Sie die E/?/?0/?-Anweisung verwen¬ 
den. Der Fehlercode darf einen Wert zwischen 0 und 255 einnehmen. 
Ein Beispielprogramm zum Testen ist nachfolgend abgedruckt. 

ON ERROR GOTO Fehler 
CLS 

'nicht belegte Fehlernummern: 

'1/8/12/16/17/18/21/22/23/26/ 

'28-49/56/59/60/65/66/77-200/ 

'202/207-241/245-255 
'Fehler Nr.l simulieren 
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ERROR 1 

'Fehler Nr.2 simulieren 

ERROR 2 

END 

Fehler: 

SELECT CASE ERR 
CASE 1 

' Fehlernummer noch nicht von 
'Power Basic belegt 
PRINT ERR;"> Feierabend!" 

CASE 2 

'neu belegt: normal "Syntax Error" 
PRINT ERR;"> Kaffeepause!" 

CASE ELSE 

PRINT ERR;"> Fehler unbekannt" 

END SELECT 
RESUME NEXTi 


Grafik 

... mathematische Funktionen zeichnen? 

Berechnen Sie für jede x/y-Koordinate den Bildpunkt und setzen ihn 
einzeln über die Funktion PSET. 

... unterschiedliche Linienarten definieren? 

Der LINE-Befehl zum Zeichnen von Linien erlaubt die direkte Definition von 
Linienarten. Die einfachste Möglichkeit ist, die Linie mit einem binären 
Muster zu definieren. Jedes Zeichen entspricht dabei genau einem Pixel. 
Eine Angabe in einem anderen Zahlensystem, z.B. hexadezimal, ist 
ebenso möglich. In den nachfolgenden Beispielen sind einfache gepunk¬ 
tete Linien und strichpunktierte Linien definiert. Versuchen Sie einmal eine 
Änderung der binären Konstanten (löstellig). 

'unbedingt in Grafikmodus schalten! 

SCREEN 9 

'einfache gepunktete Linien 
LINE (20,10)-(600,10),,,&B1000000000000000 
LINE (20,20)-(600,20),,,&B1000000010000000 
LINE (20,30)-(600,30),,,&B1000100010001000 
LINE (20,40)-(600,40),,,&B1010101010101010 
'Linien und Punkte 

LINE (20,50)-(600,50),,,&B1001110011100111 
LINE (20,60)-(600,60),,,&B1110101111010111 
LINE (20,70)-(600,70),,,&B1111101011111010 
LINE (20,80)-(600,80),,,&B1111111111111010 
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Konvertierroutinen 

... fehlende Konvertierroutinen in Power Basic implementieren? 

Power Basic stellt über die Funktionen BIN$, HEX$ und OCT$ bereits 
Möglichkeiten zur Verfügung, numerische Werte in Zeichenketten eines 
anderen Zahlensystems zu konvertieren. Um diese wieder in Zahlenwerte 
zurückzuübersetzen, müssen spezielle benutzerdefinierte Funktionen er¬ 
stellt werden. Da Power Basic auch Konstante dieser Zahlensysteme 
zuläßt, ist eine Umsetzung über die VAi-Funktion kein Problem. 

'Binärstring in numerischen Wert 
FUNCTION BIN2DEZ&(Binaer$) 

BIN2DEZ&=VAL("&B"+Binaer$) 

END FUNCTION 

'Oktalstring in numerischen Wert 
FUNCTION 0CT2DEZ&(Oktal$) 

OCT2DEZ&=VAL("&0"+0ktal?) 

END FUNCTION 


'Hexadezimalstring in numerischen Wert 
FUNCTION HEX2DEZ&(Hexadezimal?) 

HEX2DEZ&=VAL ("&H"+Hexadezimal?) 

END FUNCTION 

Den Einsatz dieser Funktionen können Sie anhand des folgenden Beispiel¬ 
programms nachvollziehen. 

'Beispielprogramm 
CLS 

a%=226 
a$=BIN$(a%) 
b$=OCT$(a%) 
c$=HEX$(a%) 

PRINT BIN?(a%) 

PRINT BIN2DEZ&(a?) 

PRINT OCT?(a%) 

PRINT 0CT2DEZ&(b?) 

PRINT HEX?(a%) 

PRINT HEX2DEZ&(c?) 
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Funktionen 

... eigene mathematische Funktionen definieren, die sich wie interne 
Power-Basic-Funktionen verhalten? 

Zunächst ist anhand einer Formelsammlung zu ermitteln, wie sich die 
Funktion mit Hilfe der internen Power-Basic-Anweisungen ausdrücken läßt. 
Anschließend erzeugen Sie eine echte Funktion mit Hilfe der Schlüssel¬ 
wörter FUNCTION/END-FUNCTION. Dabei ist zu berücksichtigen, wel¬ 
chen Datentyp und damit mit welcher Genauigkeit das Ergebnis ermittelt 
werden soll. Im nachfolgenden Beispiel errechnen wir den Cotangens mit 
einfacher Genauigkeit. Der Aufruf dieser Funktion erfolgt wie der Aufruf 
der internen SIN- oder COSFunktion. 

FUNCTION COT!(X!) 

COT = 1/TAN(X!) 

END FUNCTION 


Textformatierung auf dem Bildschirm 

... Text links-, rechtsbündig oder zentriert auf dem Bildschirm ausgeben? 

Über die integrierten Stringfunktionen läßt sich Text sehr einfach formatiert 
auf dem Bildschirm ausgeben. Dazu ist lediglich die Kenntnis über die 
Spaltenanzahl des Bildschirms erforderlich, die im normalen Textmodus 
80 Zeichen beträgt. Da Texte über den PR/NT-Befehl immer von links nach 
rechts ausgegeben werden, muß die Zeichenkette mit Leerzeichen zu¬ 
nächst aufbereitet werden. 

Text$="Dies ist die Ausgabe!" 

Laenge%=LEN(Text$) 

'linksbündige Ausgabe 
Zeile%=l 

LOCATE Zeile%, 1 
PRINT Text$; 

'rechtsbündige Ausgabe 

LOCATE Zeile%+1, 1 

PRINT SPACE$(80-Laenge%)+Text$ 

'zentrierte Ausgabe 
LOCATE Zeile%+2, 1 

PRINT SPACE$((80-Laenge%)\2)+Text$i 
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... ein Bildschirmfenster in der Bildschirmmitte ausgeben? 

Mit Hilfe der Integer-Division und der Spalten- und Zeilenzahl des aktiven 
Bildschirms läßt sich das Bildschirmzentrum sehr einfach errechnen. 

'mittlere Bildschirmzeile 
MZeile%=25\2 
'mittlere Spalte 
MSpalte%=80\2 

Von dieser Zentrumsposition aus kann nun das Bildschirmfenster, ab¬ 
hängig von Fensterbreite und -tiefe, plaziert werden. In der Regel errech¬ 
net man die Position der linken oberen Bildschirmecke. 

Breite%=20 
Tiefe% =10 
'ZeilenPosition 

ZPosition%=MSpalte% - (Tiefe%\2) 

'Spaltenposition 

SPosition%=MSpalte% - (Breite%\2) 

Im Anschluß daran kann mit LOCATE und PRINT das Bildschirmfenster 
ausgegeben werden. 

... eine Melduna an einer beliebigen Cursorposition ausgeben), ohne daß 
die ursprüngliche Cursorposition verlorengeht? 

Merken Sie sich, bevor Sie die Meldung ausgeben, zunächst die alte 
Cursorposition mit den Funktionen CSRLIN und POS. Mit den ermittelten 
Werten können Sie nach der Textausgabe den Cursor wieder an die 
ursprüngliche Bildschirmkoordinate plazieren. 

'alte Zeilenposition ermitteln 

AltZeile%=CSRLIN 

'alte Spaltenposition ermitteln 

AltSpalte%=POS 

'Text ausgeben in Zeile 1 und Spalte 1 
LOCATE 1, 1 

PRINT "Dies ist die Meldung!" 

'an ursprüngliche Position zurückkehren 
LOCATE AltZeile%, AltSpalte% 
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A Quellen zum Programm HAUSHALT 

Auf den folgenden Seiten sind noch einmal alle Quelltexte zusammen¬ 
gestellt, die Sie für das Programm HAUSHALT benötigen. Da sind zu¬ 
nächst die Headerdatei TOOLS.H und die zugehörige Funktionsbibliothek 
TOOLS.BAS, die wir in unserer ersten Sitzung erstellt haben, und an¬ 
schließend die Datei HAUSHALT.BAS, die wir im Verlaufe des Tutoriums 
entwickelt haben. Beachten Sie den in einigen Zeilen auftretenden 
Tiefstrich, der in Power Basic als Fortsetzungszeichen für eine Zeile 
definiert ist. 

Anhand der Listings können Sie noch einmal den Aufbau der einzelnen 
Dateien, vor allen Dingen aber der Datei HAUSHALT.BAS nachvollziehen. 
Beachten Sie die eingehaltene Ordnung. Nach dem Hauptprogrammteil 
und den Sprungmarken mit speziellen Programmanweisungen folgt der 
Unterprogramm- und Funktionsteil. 

'Header-Datei: TOOLS.BAS 

'Deklarationen der Routinen aus der Unit TOOLS 


DECLARE SUB InfoZeile (STRING, INTEGER, INTEGER, INTEGER) 

DECLARE FUNCTION SollLen$ (STRING, INTEGER) 

DECLARE SUB Hintergrund (INTEGER, INTEGER) 

DECLARE SUB Eingabe (STRING, STRING, INTEGER, INTEGER, INTEGER, INTEGER,_ 
INTEGER) 

DECLARE SUB Fenster (INTEGER, INTEGER, INTEGER, INTEGER, INTEGER, INTEGER) 
DECLARE SUB Auswahl (STRING ARRAY, INTEGER, INTEGER, INTEGER, INTEGER) 

Listing 1: TOOLS.H 


245 



Anhang 


> ******************************************************************** 
'* UNIT: TOOLS.BAS * 

'* allgemein einsetzbare Funktionen und Unterprogramme * 

> ******************************************************************** 


SUB Auswahl (Text$(), Anzahl%, vfarbe%, hfarbe%, Wahl%) PUBLIC 
COLOR vfarbe%, hfarbe% 'Fensteraufbau 

Breite% = 10 

FOR x% = 1 TO Anzahl% 'max. Stringlänge 

IF LEN(Text$(x%)) > Breite% THEN Breite% = LEN(Text$(x%)) 
NEXT x% 

FOR y% = 1 TO Anzahl% 'einheitl. Stringlänge 

Text$(y%) = SollLen$(Text$(y%), Breite%) 

NEXT y% 

Breite% = Breite% + 2 'Fenster 

CALL Fenster(5, 5, Breite%, Anzahl%, vfarbe%, hfarbe%) 

FOR x% = 1 TO Anzahl% 

IF x% = 1 THEN 

COLOR hfarbe%, vfarbe% 

ELSE 

COLOR vfarbe%, hfarbe% 

END IF 

LOCATE 5 + x%, 7, 0 
PRINT Text$(x%); 

NEXT x% 'Auswahl 

BalkenPosition% = 1 'erster Eintrag aktiv 

WHILE a$ <> CHR$(13) 
a$ = INKEY$ 

IF LEN(a$) = 2 THEN 

AltPosition% = BalkenPosition% 

Taste% = ASC(RIGHT$(a$, 1)) 

SELECT CASE Taste% 

CASE 72 'Cursor Up 

IF BalkenPosition% = 1 THEN 

BalkenPosition% = Anzahl% 

ELSE 

BalkenPosition% = BalkenPosition% - 1 
END IF 

CASE 80 'Cursor Down 

IF BalkenPosition% = Anzahl% THEN 
BalkenPosition% = 1 
ELSE 

BalkenPosition% = BalkenPosition% + 1 
END IF 
CASE ELSE 

END SELECT 'Balken aktualisieren 

IF Taste% = 80 OR Taste% = 72 THEN 
COLOR vfarbe%, hfarbe% 'alter Balken 
LOCATE 5 + AltPosition%, 1 , 0 
PRINT Text$(AltPosition%); 

COLOR hfarbe% / vfarbe% 'neuer Balken 
LOCATE 5 + BalkenPosition% / 7 , 0 
PRINT Text$(BalkenPosition%); 

END IF 
END IF 
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IF a$ <> CHR$(13) THEN a$ = "" 

WEND 

LOCATE , , 1 

Wahl% = BalkenPosition% 

END SUB 

SUB Eingabe (Vorgabe$, EingabS, Laenge%, Zeile%, Spalte%, vfarbe%,_ 
hfarbe%) PUBLIC 

IF LEFT$(VorgabeS, 2) = "II" THEN 'Beschränkung auf Ganzzahlen 

Zulaessig$ = "-+1234567890" 

Vorgabe$ = RIGHT$(Vorgabe$ / LEN(VorgabeS) - 2) 

ELSEIF LEFTS(VorgabeS, 2) = "R|" THEN 'Fließkommazahl 
Zulaessig$ = "-+.,1234567890" 

VorgabeS = RIGHTS(VorgabeS, LEN(Vorgabe$) - 2) 

END IF 

LOCATE Zeile%, Spalte% 

COLOR vfarbe%, hfarbe% 

PRINT VorgabeS; 

COLOR hfarbe%, vfarbe% 

PRINT Eingab$ + SPACE$(Laenge% - LEN(EingabS) ) ; 

MinSpalte% = LEN(Vorgabe$) + Spalte% 

MaxSpalte% = LEN(Vorgabe$) + Spalte% + Laenge% - 1 
EditSpalte% = LEN(Vorgabe$) + Spalte% + LEN(Eingab$) 

IF EditSpalte%>MaxSpalte% THEN EditSpalte%= EditSpalte% - 1 
WHILE Zeichen$ <> CHR$(13) 

LOCATE Zeile% / EditSpalte%, 1 
Zeichen$ = INKEY$ 

IF LEN(Zeichen$) = 1 THEN 
SELECT CASE ASC(ZeichenS) 

CASE 8 'Backspace 

IF EditSpalte% > MinSpalte% THEN 
IF LEN(EingabS) = Laenge% THEN 
EditSpalte% = EditSpalte% + 1 
END IF 

EingabS = LEFTS(EingabS, LEN(EingabS) - 1) 

LOCATE Zeile%, MinSpalte% 

PRINT EingabS + SPACES(Laenge% - LEN(EingabS)); 

IF MinSpalte% < EditSpalte% THEN 
EditSpalte% = EditSpalte% - 1 
END IF 
END IF 

CASE 32 TO 254 

IF Zeichens = "." OR Zeichens = "," THEN 

IF INSTR(EingabS, ANY ".,") > 0 THEN 'maximal ein Komma 
Zeichens = "" 

ELSE 

Zeichens = 'Komma intern 

END IF 
END IF 

IF ZulaessigS <> "" THEN 'Zeichen zulässig? 

IF INSTR(ZulaessigS, ZeichenS) = 0 THEN 

Zeichens = "" 'nein! 

ELSEIF EditSpalte% > MinSpalte% THEN 'nicht in der Position? 
IF INSTR("+-", ZeichenS) > 0 THEN 

ZeichenS = "" 'Vorzeichen an erster 
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END IF 'Position? 

END IF 
END IF 

IF Zeichen$<>"" THEN 

IF EditSpalte% <= MaxSpalte% THEN 
IF LEN(Eingab$) = Laenge% THEN 

Eingab$ = LEFT$(Eingab?, LEN(Eingab$) - 1) 

END IF 


Eingab$ = Eingab$ + Zeichen? 


LOCATE Zeile% 
PRINT Eingab$ 
IF MaxSpalte% 
EditSpalte% 
END IF 
END IF 
END IF 
CASE ELSE 
END SELECT 
END IF 

IF Zeichen$ <> CHR$(13) 
WEND 
END SUB 


MinSpalte% 

+ SPACE$(Laenge% - LEN(Eingab$)); 
> EditSpalte% THEN 
= EditSpalte% + 1 


THEN Zeichen$ = 


SUB Fenster (Zeile%, Spalte%, Breite%, Hoehe%, vfarbe%, hfarbe%) PUBLIC 
COLOR vfarbe%, hfarbe% 

LOCATE Zeile%, Spalte% 

PRINT "p" + STRING$ (Breite%, "=") + "=j" ; 

FOR x% = Zeile% + 1 TO Zeile% + Hoehe% 

LOCATE x%, Spalte% 

PRINT "|" + SPACE$(Breite%) + "|”; 

NEXT x% 

LOCATE x%, Spalte% 

PRINT "fe" + STRING?(Breite%, "=") + "J"; 

END SUB 

SUB Hintergrund (vfarbe%, hfarbe%) PUBLIC 
COLOR vfarbe%, hfarbe% 

LOCATE 2,1 
FOR x% = 1 TO 23 

PRINT STRING? (80, "iii"); 

NEXT x% 

END SUB 

SUB InfoZeile (Text?, Zeile%, vfarbe%, hfarbe%) PUBLIC 
LOCATE Zeile%, 1 
COLOR vfarbe%, hfarbe% 

Text? = SollLen?(Text?, 80) 

PRINT Text?; 

END SUB 

FUNCTION SollLen? (Text?, Laenge%) PUBLIC 
TextLaenge% = LEN(Text?) 

IF TextLaenge% > Laenge% THEN 

Text? = LEFT?(Text?, Laenge%) 

ELSEIF TextLaenge% < Laenge% THEN 
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Text$ = Text$ + SPACE$(Laenge% - TextLaenge%) 
END IF 

SollLen$ = Text$ 

END FUNCTION 

SUB Warte PUBLIC 

WHILE INKEY$ = "": WEND 
END SUB 

Listing 2: TOOLS. BAS 


$INCLUDE "TOOLS.H" 'Deklarationen der Unit TOOLS 

$LINK "TOOLS.PBU" 'Benutzerbibliothek TOOLS einbinden 

t *********************************************************************** 

'* Programmname : HAUSHALT.BAS Version 1.00 * 

'* Compiler : Power Basic 2.10 * 

'* verwendete Headerdateien: TOOLS.H * 

'* verwendete Units : TOOLS.PBU * 

' * geschrieben : April/Mai 1991 * 

'* letzte Änderung : 16.05.1991 * 

> *********************************************************************** 


'Stapelspeicher erhöhen 
'Hauptprogramm HAUSHALT 

ON ERROR GOTO FehlerBehandlung 


$STACK 4000 
CLS 


vfarbe% = 

7 


hfarbe% = 

1 


vErr% 

14 


hErr% 

4 


Anzahl% = 

8 


Menue$ (1) 

= 

"Dateiwahl" 

Menue$ (2) 

= 

"Dateneingabe" 

Menue$(3) 

= 

"Datenauswertung 

Menue$ (4) 

= 

"Druck" 

Menue$(5) 

= 

"Grafik" 

Menue$(6) 

= 

"OS-Shell" 

Menue$(7) 

= 

"Hilfe" 

Menue$ (8) 

= 

"Ende" 


'Daten initialisieren 


'Menüeinträge 


Start: 

ArbeitsDatei$="keine" 

CALL Hintergrund(vfarbe%, hfarbe%) 

WHILE Wahl% <> 8 

CALL InfoZeile("HAUSHALT Version 1.00 - Einnahmen-/"+_ 

"Ausgabenüberschußrechnung", 1, vfarbe%, hfarbe%) 
CALL InfoZeile(CHR$(24)+CHR$(25)+": Anwahl Menüeintrag RETURN:"+ 
"Menüauswahl Arbeitsdatei: "+ ArbeitsDatei$ +_ 
Space$ (12), 25, vfarbe%, hfarbe%) 

CALL Auswahl(Menue$(), Anzahl%, vfarbe%, hfarbe%, Wahl%) 

SELECT CASE Wahl% 

CASE 1 'Arbeitsdatei wählen und öffnen 
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IF ArbeitsDatei$ <> "keine" THEN 
CLOSE #DNr 
END IF 

CALL DateiNamen(Namen$(), vfarbe%, hfarbe% / Datei%) 

ArbeitsDatei$ = Namen$(Datei%) 

DNr = FREEFILE 

OPEN ArbeitsDatei$ FOR RANDOM AS #DNr LEN=50 
CASE 2 'Dateneingabe 

IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 

CALL DatenEingabe(DNr, vfarbe%, hfarbe%) 

END IF 

CASE 3 'Datenauswertung 

IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 

CALL DatenAuswertung(1, DNr, vfarbe%, hfarbe%) 

END IF 

CASE 4 'Ergebnisse ausdrucken 

IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 

CALL DatenAuswertung(2, DNr, vfarbe%, hfarbe%) 

END IF 

CASE 5 'Grafik 

IF ArbeitsDatei$="keine" THEN 

CALL KeineDateiAktiv(vfarbe%, hfarbe%) 

ELSE 

CALL DatenAuswertung(3, DNr, vfarbe%, hfarbe%) 

END IF 

CASE 6 'Tools (OS-Shell) 

COLOR 7,0 
CLS 

PRINT "zur Rückkehr zum Programm bitte EXIT eintasten..." 

SHELL 

CALL Hintergrund(vfarbe%, hfarbe%) 

CASE 7 'Hilfefunktion 

GOSUB Hilfe 
CASE ELSE 
END SELECT 
WEND 

CLOSE #DNr 
COLOR 7, 0 
CLS 

PRINT "Programm beendet..." 

END 

************************************************************************ 

' * Fehlerbehandlung und Ereignisverfolgung * 

> *********************************************************************** 


Fehlerbehandlung: 
SELECT CASE ERR 
CASE 6 
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Fehler$="Überlauf!" 

CASE 14, 201 

Fehler$="unzureichender Speicherplatz! " 

CASE 24, 25, 68, 69 

Fehler$="Peripherie-, Schnittstellenprobleme!" 

CASE 27, 57 

Fehler$="Der Drucker ist nicht bereit!" 

CASE 51 

Fehler$="Interner Fehler!" 

CASE 70, 71, 72 

Fehler$="Probleme mit dem Laufwerk!" 

CASE 71 

Fehler$="Keine Diskette/Klappe offen!" 

CASE ELSE 

Fehler$="Fehler Nummer "+STR$(ERR)+" ist aufgetreten!" 

END SELECT 

CALL InfoZeile("Achtung: "+Fehler$, 25, vErr%, hErr%) 

CALL Warte 
RESUME Start 

Hilfe: 

CALL InfoZeile("Wählen Sie ein Thema, zu dem Sie Informationen"+_ 

" wünschen...", 25, hfarbe%, vfarbe%) 

CALL HinterGrund(vfarbe%, hfarbe%) 

Help$(1)="MENUE" : Help$(2)="DATEIWAHL" 

Help$(3)="DATENEINGABE" : Help$(4) = "AUSWERTUNG" 

Help$(5)="DRUCKER" : Help$(6)="GRAFIK" 

CALL Auswahl(Help$(), 6, hfarbe%, vfarbe%, X%) 

HilfeBegriff$=RTRIM$(Help$(X%) ) 

CALL Hintergrund(vfarbe%, hfarbe%) 

HNr = FREEFILE 

OPEN "HAUSHALT.HLP" FOR INPUT AS #HNr 
HAnz%=0 

WHILE NOT EOF(HNr) 

LINE INPUT #HNr, Zeile$ 

IF INSTR(Zeile$, "["+HilfeBegriff$+"]") > 0 THEN 
WHILE Left$(Help$(HAnz%),1)<>"#" 

HAnz%=HAnz%+l 

LINE INPUT #HNr, Help$(HAnz%) 

WEND 
END IF 
WEND 

CALL Auswahl(Help$(), HAnz%-l, hfarbe%, vfarbe%, 0) 

CLOSE #HNr 

CALL Hintergrund(vfarbe%,hfarbe%) 

RETURN 

> *********************************************************************** 

' * Unterprogramme und Funktionen für das Programm HAUSHALT * 

> *********************************************************************** 

SUB DateiNamen(Namen$(), vfarbe%, hfarbe%, Wahl%) 

Wahl% = 0 

Anzahl% = 0 'Dateieinträge ermitteln 

Datei$ = DIR$("*.DAT") 'Suchmaske festlegen 

WHILE Datei$<>"" AND Anzahl% < 10 'Einträge einiesen 
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Anzahl% = Anzahl%+1 
Namen$(Anzahl%) = Datei$ 

Datei$ = DIR$ 

WEND 
a$ = "" 

IF Anzahl% = 0 THEN 'keine Datei gefunden 

Naraen$(l) = "HAU SHALT.DAT " 'Standardname erzeugen 

Wahl%= 1 

ELSEIF Anzahl%<10 THEN 

Anzahl% = Anzahl% + 1 'neue Datei erzeugen? 

Sonder$ = "neue Datei" 

Namen$(Anzahl%) = Sonder$ 

END IF 

WHILE Wahl%=0 'Arbeitsdatei ermitteln 

CALL Hintergrund (vfarbe%, hfarbe%) 

CALL InfoZeile("Info: Bitte wählen Sie eine Arbeitsdatei aus"+_ 

" dem folgenden Menü...", 1, vfarbe%, hfarbe%) 

ARRAY SORT Namen$() FOR Anzahl% 'Dateien alphabetisch sortieren 

CALL Auswahl (Namen$() / Anzahl%, vfarbe%, hfarbe%, Wahl%) 

IF RTRIM$(Namen$(Wahl%)) = Sonder$ THEN 

CALL Fenster(10, 30, 44, 1, vfarbe%, hfarbe%) 

Namen$(Wahl%) = RIGHT$(Date$, 4) 

CALL Eingabe("Bitte neuen Dateinamen eingeben: ", Namen$(Wahl%),_ 
8, 11, 32, vfarbe%, hfarbe%) 

IF RTRIM$(Namen$(Wahl%)) = "" THEN 
Namen$(Wahl%) = "HAUSHALT" 

END IF 

Namen$(Wahl%) = Namen$(Wahl%) + ".DAT" 

END IF 
WEND 

CALL Hintergrund (vfarbe%, hfarbe%) 

END SUB 

SUB KeineDateiAktiv(vfarbe%,hfarbe%) 

COLOR hfarbe%, vfarbe% 

CALL Fenster(10, 30, 48, 1, vfarbe%, hfarbe%) 

LOCATE 11, 32, 0 

PRINT "Bitte wählen Sie zunächst eine Arbeitsdatei..." 

CALL Warte 

COLOR vfarbe%, hfarbe% 

END SUB 

SUB DatenEingabe(DateiNummer, vfarbe%, hfarbe%) 

FIELD #Dateinummer, 10 AS BuchungsDatum$, 36 AS Beschreibung$,_ 

4 AS Betrag$ 

SatzAnzahlS = LOF(DateiNummer) \ 50 
CALL Hintergrund(vfarbe%, hfarbe%) 

CALL Fenster(8, 10, 60, 8, vfarbe%, hfarbe%) 

CALL InfoZeile("PgUp/PgDn: Datensätzen blättern Return: Buchung"+_ 

" vornehmen "ESC: Eingabeende", 25, vfarbe%, hfarbe%) 
LOCATE 9, 12 'Eingabemaske ausgeben 

PRINT "Datensatznummer : 

LOCATE 11, 12 

PRINT "Buchungsdatum : "; 

LOCATE 13, 12 
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PRINT "Beschreibung : ["+SPACE$(36)+"] 

LOCATE 15, 12 

PRINT "Einnahme/Ausgabe: ["+SPACE$(15)+"]"; 

CALL Fenster(19, 10, 60, 3, vfarbe%, hfarbe%) 

LOCATE 20, 12 

PRINT "Eine Einnahme wird mit einem positiven [+] und eine Ausgabe" 
LOCATE 21, 12 

PRINT "mit einem negativen Vorzeichen [-] in der ersten Spalte" 
LOCATE 22, 12, 0 

PRINT "gekennzeichnet. Die Verwendung des [+] ist dabei wahlfrei." 
SatzNummerS = SatzAnzahlS 
IF SatzNummer&>0 THEN 

GET #DateiNummer, SatzNummer& 

Datum$ = BuchungsDatum$ 

Kommentar$ = Beschreibung$ 

Ein$ = STR$(CVS(Betrag?)) 

ELSE 

SatzNummerS = 1 
Datum$ = GermanDate$ 

END IF 

EditFeld% = 0 

CALL AktualisiereMaske (SatzNummers, Datum$, Kommentar$, Ein$,_ 
vfarbe%, hfarbe%) 

WHILE a$OCHR$(27) 

a$ = INKEY$ 'ESC Eingabeende 

b$=RIGHT$(a$, 1) 

IF b$=CHR$(81) THEN 'PgUp (max. 500 000 Einträge) 

IF SatzNummerS < 500000 AND VAL(Ein$)<>0 THEN 
LSET BuchungsDatum$ = Datum$ 

LSET Beschreibung$ = Kommentar$ 

LSET Betrag$ = MKS$(VAL(Ein?)) 

PUT #Dateinummer, SatzNummerS 
SatzNummer&=SatzNummerS + 1 
IF SatzNummer&>SatzAnzahl& THEN 
Datum$ = GermanDate$ 

Kommentar$ = "" 

Ein$ = "" 

SatzAnzahlS = SatzAnzahlS + 1 
ELSE 

GET #Dateinummer, SatzNummerS 
Datum$ = BuchungsDatum$ 

Kommentar$ = Beschreibung$ 

Ein$ = STR$(CVS(Betrag$)) 

END IF 
END IF 

ELSEIF b?=CHR?(73) THEN 'PgDn 

IF SatzNummer&>l THEN 

LSET BuchungsDatum$ = Datum? 

LSET Beschreibung? = Kommentar? 

LSET Betrag? = MKS?(VAL(Ein?)) 

PUT #Dateinummer, SatzNummerS 
SatzNummer&=SatzNummer& - 1 
GET #DateiNummer, SatzNummerS 
Datum? = BuchungsDatum? 

Kommentar? = Beschreibung? 
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Ein$ = STR$(CVS(Betrag$)) 

END IF 

ELSEIF a$=CHR$(13) THEN 

EditFeld% = EditFeld% XOR 1 'editiere 1. bzw. 2.Feld 
IF EditFeld%=l THEN 

Kommentar$ = RTRIM?(Kommentar?) 

CALL EingabeKommentar?, 36, 13, 31, vfarbe%, hfarbe%) 
ELSE 

Ein$ = RTRIM$(Ein?) 

CALL Eingabe("R|, Ein?, 15, 15, 31, vfarbe%, hfarbe%) 

END IF 
END IF 

IF b$=CHR$(73) OR b$=CHR$(81) OR a?=CHR?(13) THEN 

CALL AktualisiereMaske (SatzNummer&, Datum$, Kommentar$, Ein$,_ 
vfarbe%, hfarbe%) 

END IF 
WEND 

CALL HinterGrund(vfarbe%, hfarbe%) 

END SUB 

FUNCTION GermanDate$ 

GermanDate$=MID$(Date$,4,2) + + LEFT$(Date$,2) + "." +__ 

RIGHT$(Date$,4) 

END FUNCTION 

SUB AktualisiereMaske(SatzNummerS, Datum$, Kommentar$, Wert$, vfarbe%,_ 
hfarbe%) 

COLOR vfarbe%, hfarbe% 

LOCATE 9, 31, 0 : PRINT SatzNummerS; SPACE?(10) 

LOCATE 11, 31 : PRINT Datum$ 

LOCATE 13, 31 : PRINT SollLen$(Kommentar$, 36) 

LOCATE 15, 31 : PRINT SollLen?(Wert?,15) 

END SUB 

SUB DatenAuswertung(Mode%, Dateinummer, vfarbe%, hfarbe%) 

FIELD #Dateinummer, 10 AS BuchungsDatum$, 36 AS Beschreibung$,_ 

4 AS Betrag? 

CALL Hintergrund(vfarbe%, hfarbe%) 

CALL Fenster(10, 16, 46, 1, vfarbe%, hfarbe%) 

Jahr? = RTRIM?(RIGHT?(Date?, 4)) 

IF Mode%=l THEN 

Teil? = "Bildschirm" 

ELSEIF Mode%=2 THEN 
Teil? = "Drucker" 

ELSE 

Teil? = "Grafik" 

END IF 

CALL Eingabe("I|"+ Teil?+"auswertung für welches Jahr: ", Jahr?, 4, 11, 
18, vfarbe%, hfarbe%) 

IF LEN(Jahr?)<> 4 THEN EXIT SUB 
LOCATE ,,0 

FOR SatzNummer&=l TO LOF(Dateinummer)\50 
GET #Dateinummer, SatzNummerS 
Datum? = BuchungsDatum? 

Kommentar? = Beschreibung? 
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Betrag! = CVS(Betrag$) 

IF RIGHTS(Datum$, 4) = Jahr$ THEN 

IF Betrag! < 0 THEN 'Gesamtsummen 

Ausgabe! = Ausgabe! + ABS(Betrag!) 

ELSEIF Betrag! > 0 THEN 

Einnahme! = Einnahme! + Betrag! 

END IF 

IF Mode%=2 THEN 'Druckerausgabe 

Summe! = Einnahme! - Ausgabe! 

CALL DruckerAusgabe(SatzNummer&, Datum$, Kommentars, Betrag!, 
Summe!) 

END IF 

SELECT CASE MID$(Datum$, 4, 2) 'monatlicher Saldo 

CASE "01" 'Januar 

Januar! = Januar! + Betrag! 

CASE "02" 'Februar 

Februar! = Februar! + Betrag! 

CASE "03" 'März 

Maerz! = Maerz! + Betrag! 

CASE "04" 'April 

April! = April! + Betrag! 

CASE "05" 'Mai 


Mai! = Mai! + Betrag! 
CASE "06" 'Juni 


Juni! = Juni! + Betrag! 

CASE "07" 'Juli 

Juli! = Juli! + Betrag! 

CASE "08" 'August 

August! = August! + Betrag! 

CASE "09" 'September 

September! = September! + Betrag! 
CASE "10" 'Oktober 

Oktober! = Oktober! + Betrag! 

CASE "11" 'November 

November! = November! + Betrag! 
CASE "12" 'Dezember 


Dezember! = Dezember! + Betrag! 
CASE ELSE 
END SELECT 
END IF 


NEXT SatzNummerS 

Gesamt! = Einnahme! - Ausgabe! 

IF Mode% = 1 THEN 

CALL Fenster(5, 5, 70, 15, vfarbe%, hfarbe%) 
Ausgabe! 


Gesamt! 

! = Einnahme! 

LOCATE 

6, 8: 

PRINT 

LOCATE 

7, 8: 

PRINT 

LOCATE 

00 

00 

PRINT 

LOCATE 

9, 8: 

PRINT 

LOCATE 

in 

o 

i—i 

PRINT 

LOCATE 

00 

CM 

i—1 

PRINT 

LOCATE 

12,45: 

PRINT 

LOCATE 

13, 8: 

PRINT 

LOCATE 

13,45: 

PRINT 

LOCATE 

14, 8: 

PRINT 


"Summe aller Einnahmen... 
"Summe aller Ausgaben.... 


+ STRING$(70, 


Februar 


"-») + 1 
;Runden 
;Runden 
;Runden 
;Runden 
;Runden 


";Jahr$ 

";Runden! 
";Runden! 
";Runden! 

!(Januar!) 

!(Juli!) 

!(Februar!) 
!(August!) 

!(Maerz!) 


(Einnahme!) 
(Ausgabe!) 
(Gesamt!) 
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LOCATE 

14,45: 

PRINT 

"September. 

"/Runden! 

(September 

LOCATE 

15, 8: 

PRINT 

" April_ 

"/Runden! 

(April!) 

LOCATE 

15,45: 

PRINT 

"Oktober. 

"/Runden! 

(Oktober!) 
(Mai!) 
(November!; 
(Juni!) 
(Dezember!; 

LOCATE 

16, 8: 

PRINT 

" Mai. 

"/Runden! 

LOCATE 

16,45: 

PRINT 

"November. 

"/Runden! 

LOCATE 

17. 8: 

PRINT 

" Juni. 

"/Runden! 

LOCATE 17,45: 
LOCATE ,,0 
CALL Warte 

PRINT 

"Dezember. 

"/Runden! 


ELSEIF Mode% = 2 THEN 
LPRINT : LPRINT 

LPRINT Space$(3)+ "Auswertungsjahr. 

LPRINT Space$(3)+ "Summe aller Einnahmen... 
LPRINT Space$(3)+ "Summe aller Ausgaben.... 

"Gesamtsaldo. 


";Jahr$ 

";Runden!(Einnahme!) 
";Runden!(Ausgabe!) 

"/Runden!(Summe!) 


LPRINT Space$(3) 

CALL FormFeed 

ELSEIF Mode% = 3 THEN 'Kreisdiagramm 

SCREEN 12 'Grafikmodus 

CALL Linien(Januar!,Februar!, Maerz!, April!, Mai!, Juni!, Juli! 
August!, September!, Oktober!, November!, Dezember!) 

CLS 

IF Einnahme!<>0 AND Ausgabe!<>0 THEN 
CALL Kreis(Einnahme!, Ausgabe!) 

END IF 

SCREEN 0 'zurück in Textmodus 

END IF 

CALL Hintergrund(vfarbe%, hfarbe%) 

END SUB 


FUNCTION Runden!(Zahl!) 

Runden! = INT(Zahl! * 100 + 0.5) / 100 
END FUNCTION 

SUB FormFeed 

LPRINT CHR$(12); 

END SUB 

SUB SeitenKopf(Seite%, ZeilenZahl%) 

Seite% = Seite% + 1 
LPRINT 

LPRINT SPACE$(3) + "HAUSHALT Version 1.00 - Druckerausgabe"+_ 

" Datenauswertung - Seite: ";Seite% 

LPRINT 

LPRINT 

LPRINT SPACE$(3) + "Nr. |Buchung |Kommentar"+_ 

" (Buchung |Saldo " 

LPRINT SPACE$ (3) + "-1-(-"+_ 

..-r+_ 


-t- 


ZeilenZahl% = 6 
END SUB 


SUB Druckzeile(Nr&, Datum$, Kommentar$, Betrag!, Summe!) 
Nr$ = SollLen$(LTRIM$(STR$(Nr&) ) , 6) 

Betrag$ = LTRIM$(STR$(Betrag!) ) 
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Summe$ = LTRIM$(STR$(Summe!)) 

LPRINT SPACE$(3) + Nr$ + "|" + Datum$ + "|" + Kommentar$ + "|" + 

Formatiere$(BetragS, 9) + "|" + FormatiereS(SummeS, 10) 

END SUB 

SUB DruckerAusgabe(SatzNummerS, DatumS, KommentarS, Betrag!, Summe!) 
STATIC ZeilenZahl%, Seite% 

IF ZeilenZahl% = 0 OR ZeilenZahl% = 60 THEN 
CALL SeitenKopf(Seite%, ZeilenAnzahl%) 

END IF 

CALL Druckzeile(SatzNummerS, DatumS, Kommentar$, Runden!(Betrag!),_ 
Runden!(Summe!)) 

ZeilenZahl% = ZeilenZahl% + 1 
IF ZeilenZahl% = 60 THEN 
CALL FormFeed 
ZeilenZahl% = 0 
END IF 
END SUB 

FUNCTION FormatiereS(Zahl$, Laenge%) 

Komma % - INSTR(ZahlS, •*.") 

IF Komma% = 0 THEN 

Zahl$ = Zahl$ + ".00" 

ELSEIF INSTR(ZahlS, ".") = LEN(Zahl$)-l THEN 
Zahl$ = ZahlS + "0" 

END IF 

IF Laenge%> LEN(Zahl$) THEN 

Zahl$ = SPACES(Laenge%-LEN(Zahl$)) + ZahlS 
END IF 

FormatiereS = ZahlS 
END FUNCTION 

SUB Kreis(Einnahme!, Ausgabe!) 

maxX% = 640-1 'Grafikmodus 

maxY% = 480-1 

G! = Ausgabe!/(Einnahme!/360) 

LOCATE 30,1 'Text / Untergrund 

COLOR 1, 3 

PRINT "Fortsetzung mit beliebiger Taste..."; 

COLOR 14 'Beschriftung 

LOCATE 3, 20 

PRINT "Kreisdiagramm Einnahmen/Ausgaben Gesamt in DM" 

LOCATE 4, 20 

PRINT "Gesamteinnahmen: "/Runden!(Einnahme!);"DM" 

COLOR 5 
LOCATE 15, 61 

PRINT "Saldo =";Runden!(Einnahme!-Ausgabe!) 

COLOR 1 
LOCATE 16, 61 

PRINT "Ausgaben="/Runden!(Ausgabe!) 

LINE (0, 0) - (maxX%, maxY%), 15, B 'Rahmen 

LINE (0, maxY%-16) - (maxX%, maxY%-16) , 15 
CIRCLE (maxX%\2, maxY%\2), 150, 15 'Kreisdiagramm 

PAINT (maxX%\2, maxY%\2), 5, 15 

CIRCLE (maxX%\2, maxY%\2), 150, 15, -0.001, (-1) * Grad2Rad#(G!) 
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PAINT (maxX%\2 + 10, maxY%\2+2) , 
CALL Warte 
END SUB 


2,15 


'warten auf Tastendruck 


SUB Linien(Jan!, Feb!,Mar!,Apr!,Mai!,Jun!, Jul!,Aug!,Sep!,Okt!,Nov!, Dez 
maxX% = 640-1 'Grafikmodus 

maxY% = 480-1 

LOCATE 30,1 'Text / Untergrund 

COLOR 1, 3 

PRINT "Fortsetzung mit beliebiger Taste..."; 

COLOR 14 'Beschriftung 

LOCATE 3, 25 

PRINT "Salden bezogen auf einzelne Monate" 

LOCATE 4, 20 


LINE 

LINE 


(0, 0) - (maxX%, maxY%), 15, B 'Rahmen 
(0, maxY%-16) - (maxX%, maxY%-16), 15 


LINE (10, maxY%\2) - (maxX%-10, maxY%\2) 
DRAW "CI H10 F10 G10" 

LINE (20, maxY%-30) - (20, 35), 1 
DRAW "CI G10 E10 F10" 

DRAW "BM 10,"+STR$(maxY%\2) 

FOR x%=l TO 12 
DRAW "R45 D5 U5" 

NEXT x% 

COLOR 1 
LOCATE 2, 


'Pfeil rechts 

'Pfeil rechts 
'Ursprung 

'x-Koordinatenleiste 


3: PRINT "DM*1000" 


LOCATE 16, 2: PRINT "0" 


LOCATE 16,72 

: PRINT 

"Monat" 

LOCATE 17, 6 

: PRINT 

" Jan" 

LOCATE 17,24 

: PRINT 

"Apr" 

LOCATE 17,46 

: PRINT 

"Aug" 

LOCATE 17,68 

: PRINT 

••Dez" 

DRAW "BM 20, 

"+STR$(maxY%\2) 

FOR x %=1 TO 

3 


DRAW "D60 

R5 L5" 


NEXT x% 

DRAW "BM 20, 

"+STR$(maxY%\2) 

FOR x %=1 TO 

3 


DRAW "U60 

R5 L5" 


NEXT x% 
LOCATE 4,5: 

PRINT 

"+15 " 

LOCATE 8,5: 

PRINT 

"+10" 

LOCATE 12,5: 

PRINT 

"+5" 

LOCATE 19,5: 

PRINT 

••-5" 

LOCATE 23,5: 

PRINT 

"-10" 

LOCATE 27,5: 

PRINT 

" -15 " 

DRAW "BM 55, 

"+STR$((maxY%\2)-] 

xWert%=55 

FOR x% = 2 TO 12 


SELECT CASE x% 


CASE 2: 

Monat! 

= Feb! 

CASE 3: 

Monat! 

= Mar! 

CASE 4: 

Monat! 

= Apr! 

CASE 5: 

Monat! 

= Mai! 

CASE 6: 

Monat! 

= Jun! 


'y-Koordinatenleiste 


'y-Koordinatenleiste 


'Liniengrafik 
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CASE 

7: 

Monat! 

= 

Jul 

CASE 

8: 

I^onat! 

= 

Aug 

CASE 

9: 

Monat! 

= 

Sep 

CASE 

10: 

Monat! 

= 

Okt 

CASE 

11: 

Monat! 

= 

Nov 

CASE 

12: 

Monat! 

= 

Dez 

CASE 

ELSE 




END SELECT 
xWert% = xWert%+45 

LINE -(xWert%,(maxY%\2)-PixelWert%(Monat!)), 14 
NEXT x% 

CALL Warte 
END SUB 

FUNCTION Grad2Rad#(G!) 
pi# = 3.141592654 
Grad2Rad# = ( (2 * pi#)/360) * G! 

END FUNCTION 

FUNCTION PixelWert%(Wert!) 

PixelWert% = INT(Wert! * (60/5000)) 

END FUNCTION 

Listing 3: HAUSHALT.BAS 
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B Glossar 

Anwendungsprogramm: Programm zum Lösen von Benutzerproblemen. 

Cursor: Zeichen, das Ihnen auf dem Bildschirm anzeigt, an welcher Stelle 
Sie Eingaben vornehmen können. 

Compiler: Programm, das einen Quelltext einer höheren Programmier¬ 
sprache in Maschinensprache übersetzt und Sprungmarken für die Biblio¬ 
theksroutinen einfügt. 

Coprozessor: Hardware-Zusatz, der mathematische Fließkommaberech¬ 
nungen beschleunigt. 

Debugger: Programm, mit dem die Fehlersuche in Programmen ermöglicht 
wird. 

DOS: Software, die den Betrieb eines Rechners ermöglicht (Disk Operating 
System). 

Editor: Programm, das die Bearbeitung eines ASCII-Textes erlaubt. 

Grafikkarten: Hardware-Zusätze, die die grafische Bildverarbeitung auf 
einem Computer ermöglichen. 

GW-Basic/BasicA: Basic-Interpreter, der mit dem Betriebssystem MS-DOS 
bzw. PC-DOS von 1981 bis 1991 ausgeliefert wurde. 

Hardware: Als Hardware bezeichnet man die technischen Geräte eines 
Computersystems. 

IDE: Integrierte Entwicklungsumgebung, die mehrere Programme unter 
einer einheitlichen Benutzeroberfläche vereinigt. In Power Basic sind der 
Editor, Compiler, Linker und Debugger unter einer einheitlichen Ober¬ 
fläche zusammengefaßt. 

Interpreter: Ein Programm, das Programmcode einliest und schrittweise 
ausführt. 

kompatibel: Meint im Computerbereich soviel wie »austauschbar«. 

Linker: Programm, das die vom Compiler gesetzten Sprungmarken durch 
Einbinden von Bibliotheksroutinen auflöst. 
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Maschinencode: Anweisungen, die vom Prozessor verarbeitbar sind. Eine 
Programmiersprache dient als »Dolmetscher« und übersetzt die Befehle 
höherer Programmiersprachen in ein für den Rechner verständliches 
Maschinenprogramm. 

Programm: Eine exakte Darstellung eines Algorithmus bezeichnet man als 
Programm. Ein Algorithmus ist die Beschreibung eines Lösungsverfahrens 
für eine Klasse von Problemen. 

Programmiersprache: Sprache, mit der Algorithmen und Programme für 
einen Computer formuliert werden können. 

Unit: Bei einer Unit handelt es sich um eine Funktionsbibliothek, in der 
benutzerdefinierte Funktionen und Unterprogramme in Maschinencode 
zusammengefaßt sind. 

Quelltext: Ein Programm, das im ASCII-Format mit einem Editor erstellt 
wurde. 

Software: Gesamtheit aller Programme, die auf einem Rechner eingesetzt 
werden können. 

Syntax: Die Syntax bestimmt die sprachliche Notierung von Programmen. 
Bei den natürlichen Sprachen, wie z.B. Englisch oder Deutsch, bezeichnet 
man die Syntax als »Grammatik«. 
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C Tabellen 

In der ersten Tabelle sind die wichtigsten Tastaturabfragecodes, die Sie 
beim Einsatz der INKEY $-Anweisung benötigen, zusammengestellt. Dabei 
ist berücksichtigt, daß viele Tasten in Verbindung mit Sondertasten, wie 
der (Alt 1 - oder Istrg] -Taste, unterschiedliche Codes zurückliefern. Der 
Code selber ist als Dezimalwert dargestellt. Da Sie mit INKEY$ immer 
eine Zeichenkette erhalten, könnten Sie mit der CHR $-Funktion den 
Dezimalwert in ein Zeichen konvertieren (siehe Routinen »Auswahl und 
Eingabe in der Funktionsbibliothek TOOLS.BAS«), damit ein Vergleich 
möglich ist. 

Ferner sind in einer weiteren Tabelle die Zeichen aus dem ASCII-Zeichen- 
satz zusammengestellt, die Sie z.B. zum Erstellen von Rahmen auf dem 
Textbildschirm oder dem Drucker benötigen. 

Tastaturabfragecodes 

Beachten Sie, daß, je nach gedrückter Tastenkombination, ein Ein- bzw. 
Zwei-Zeichen-Tastaturcode zurückgeliefert wird. Besteht die Information 
aus einem Zeichen, kann der Wert direkt über INKEY$ ermittelt werden. 
Werden zwei Zeichen zurückgegeben, ist das erste Zeichen immer ein 
ASCII 0. In der Tabelle erscheint in einem solchen Fall die Codefolge 
O+ZweiterZeichenCode. 

'einfache Auswertung 
Zeichen$="" 

WHILE Zeichen$="" 

Zeichen$=INKEY$ 

WEND 

IF Zeichen$=CHR$(27) THEN 
'Esc-Taste gedrückt 
END IF 

Mit den nachfolgenden Anweisungen können Sie ermitteln, ob eine Taste 
bzw. eine Tastenkombination einen Ein- bzw. Zwei-Zeichen-Tastaturcode 
zurückliefert. 
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'ermitteln ob Zwei-Zeichen-Tastaturcode 
Zeichen$="" 

WHILE Zeichen$<>"" 

Zeichen$=INKEY$ 

WEND 

IF LEN(Zeichen$)=2 THEN 

'Zwei-Zeichen-Tastaturcode 
'Information im rechten Teil 
ZeichenInfo$=RIGHT$(Zeichen$ / 1) 

ELSE 

'Ein-Zeichen-Tastaturcode 
END IF 


Taste 

Code 

Shift 

Strg 

Alt 

lEscl 

27 

27 

27 


[Backspace| 

8 

8 

127 


fT5b| 

15 

0+15 



[Return] 

13 

13 

10 


dD 

0+59 

0+84 

0+94 

0+104 

dH 

0+60 

0+85 

0+95 

0+105 

dH 

0+61 

0+86 

0+96 

0+106 

dH 

0+62 

0+87 

0+97 

0+107 

dD 

0+63 

0+88 

0+98 

0+108 

dD 

0+64 

0+89 

0+99 

0+109 

dD 

0+65 

0+90 

0+100 

0+110 

dD 

0+66 

0+91 

0+101 

0+111 

dD 

0+67 

0+92 

0+102 

0+112 

dlöl 

0+68 

0+93 

0+103 

0+113 

[ Home/Posl| 

0+71 




CD 

0+72 




[PgUp ] 

0+73 




0 

0+75 




0 

0+77 




1 End 1 

0+79 




0 

0+80 




(piöHl 

0+81 




[Ins/Einfg ] 

0+82 




[Del/Entf | 

0+83 
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ASCII-Tabelle 


s 1 

6 2 

* 3 

♦ 4 

* 5 

< 

\ 6 

• 7 

T8 

0 9 

Q 10 

S 11 

? 12 

f 13 

fl 14 

* 15 

► 16 

H 

K 17 

t 18 

!! 19 

H 20 

§ 21 

. 22 

t 23 

t 24 

l 25 

■* 26 

<■ 27 

l 

- 28 

♦ 29 

i 30 

? 31 


32 

t 33 

" 34 

# 35 

§ 36 

’A 37 

& 38 

J 

1 39 

( 40 

) 41 

* 42 


► 43 

1 44 

- 45 

. 46 

/ 47 

0 48 

1 49 

2 50 

3 51 

4 52 

5 53 

6 54 

7 55 

8 56 

9 57 

: 58 

; 59 

< 60 


: 61 

> 62 

? 63 

0 64 

A 65 

B 66 

C 67 

D 68 

E 69 

F 70 

G 71 

H 72 

I 73 

J 74 

K 75 

L 76 

M 77 

N 78 

0 79 

P 80 

q 81 

R 82 

S 83 

I 84 

U 85 

8 86 

V 87 

X 88 

V 89 

Z 90 

[ 91 

S 92 

] 93 

t 

' 94 

95 

1 96 

a 97 

b 98 

c 99 

d 108 

e 101 

f 102 

g 103 

h 104 

i 105 

j 106 

k 107 

1 108 

n 109 

n 110 

o 111 

P 112 

q 113 

r 114 

s 115 

t 116 

u 117 

w 118 

u 119 

x 120 

y 121 

z 122 

{ 123 

: 124 

> 125 

' 126 

t 127 

5 128 

ü 129 

e 130 

a 131 

ä 132 

ä 133 

ä 134 

S 135 

e 136 

e 137 

i 

3 138 

i 139 

i 140 

i 141 

S 142 

A 143 

E 144 

» 145 

fl 146 

6 147 

ö 148 

ö 149 

u 150 

u 151 

y 152 

ö 153 

Ü 154 

C 155 

£ 156 

¥ 157 

R 158 

f 159 


3 160 

1 161 

6 162 

u 163 

n 164 

N 165 

2 166 

2 167 

i 168 

r 169 

170 

! 

l 171 

Ü 172 

* 173 

« 174 

» 175 

1 176 

1 177 

1 178 

| 179 

\ 180 

\ 181 

1 

182 

Tl 183 

t 184 

ll 185 


| 186 

il 187 

** 188 

1 189 

* 190 

1 191 

1 192 


*■ 193 

T 194 

f 195 

- 196 


• 197 

1 = 198 

II 199 

1 200 

ff 201 

i 202 

ii 203 


[204 

= 205 

4 206 

±207 

J 

208 

f 209 

jl 210 

1*211 

“212 

f 213 

„214 


| 215 

+ 216 

" 217 

r 218 

| 219 

a 220 

| 221 

| 222 

■223 

« 224 

p 225 


226 

I 227 

l 228 

r 229 

V 230 

T 231 

5 232 

6 233 

ö 234 

5 235 

»236 

$ 237 

( 238 

n 239 

= 240 

■ 

t 241 

> 242 

< 243 

f 244 

J 245 

t 246 

s 247 

( 

’ 248 

• 249 

• 250 

i 251 

* 252 

2 253 

■ 254 

255 
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D Literaturhinweis 

Power Basic befindet sich erst seit kurzer Zeit auf dem Markt, so daß leider 
bislang keine spezielle Sekundärliteratur erhältlich ist. Lassen sich Tool¬ 
boxen anderer Basic-Dialekte nicht ohne weiteres verwenden, kann man 
sich Anregungen und Lösungen dennoch aus bereits vorhandener Basic- 
Literatur holen. Dabei sollte man Literatur zu Turbo Basic unbedingt der 
Literatur zu Quick Basic vorziehen. 

Eine Zeitschrift, die sich regelmäßig mit Themen zu Power Basic befaßt 
und. spezielle Programmierkurse im Heft anbietet, ist die Computer-Zeit¬ 
schrift »Highscreen Highlights«, die im DMV-Verlag erscheint und derzeit 
exklusiv bei VOBIS vertrieben wird. Ein Bezug dieser Fachzeitschrift soll 
ab September auch über den Zeitschriftenhandel möglich sein. 


265 



— 


— 


. 





Stichwortverzeichnis 


$INCLUDE 70 
$LINK 35, 49, 70 
$SEGMENT 35 
$STACK 49 
$STRING 92 

A 

Altgrad 1 22 
APPEND 139 
Arbeitsdiskette anlegen 16 
Arbeitsfläche definieren 37 
Array 26 
ASC() 81 
ASCII-Tabelle 264 
ASCII-Zeichensatz 39 
Ausdrücke 26 

Ausführbare Programmdatei 152 
Auswahlroutine 42 


B 

BAK-Datei 165 
BCD-Festzahl 25 
BCD-Fließzahl 25 
Benutzerbibliothek 33 
Benutzerhandbuch 1 2 
Benutzeroberfläche 22 
Betriebssystem 1 6, 57, 142 
Bildschirmauflösung 118 
Bildschirmausgaben 67 
Bildschirmmodi 114 
Binärdatei 55 
Blockbefehle 47 


Bogenmaß 89, 122 
Breakpoint 161 


c 

CALL 31 
CHR$() 81 

CIRCLE 118, 122, 124 
CLOSE 54 
COM-Datei 152 
Compiler 11,152, 260 
Compiler-Anweisungen 190 
Compiler-Befehle 49 
Control-Break 153 
Coprozessor 12, 170, 260 
Cursor 260 
Cursorsteuerung 21 


D 

DATE$ 82 
Datei 54, 195 
Dateiarten 55 
Dateiauswahl 61 
Datei kürzel 57 
Dateimanager 54 
Dateiname 57 
Dateinummer 55 
Dateipuffer 81 
Dateiverwaltung 83 
Dateiverzeichnis 56 
Daten aufbereiten 103 
Datenauswertung 93 
Dateneingabe 75 
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Stichwortverzeichnis 


Datenfeld 26, 68 
Datenfelder verwalten 56 
Datenfeldoperationen 199 
Datensatz 68, 75 
Datensicherung 164 
Datentypen 24, 80 
Debugger 160, 260 
Deklarationsteil 41,44 
Dienstprogramm 19 
DIM 26 

Direktzugriffsdatei 55, 67, 81 
Disketten installation 1 8 
DO-LOOP-Schleife 27 
DOS 260 

DOS-Anweisungen 54, 201 
DOS-Piping 165 
DRAW 116, 125 
Drucker-Steuercode 104 
Druckerausgabe 101, 105 
Druckersteuerung 204 
dynamische Zeichenkette 92 


E 

Editor 19,260 
EGA 114 
Eingabefenster 15 
Eingabemaske erstellen 67 
Eingaberoutine 36 
Einzelschrittmodus 160 
End-Of-File-Marke 140 
Entscheidungskonstrukte 29 
Entwicklungsumgebung 11,163 
EOF 93, 140 
Epson-Drucker 104 
Epson-Emulation 104 
Ereignisverfolgung 141 
ERR 136 
EXE-Datei 152 


F 

Farbeinstellungen 19 
Fehlerbehandlung 134,159,210 
Fehlerbeseitigung 157 


Fehlermeldungen 157 
Fensterverwaltung 39, 169 
Festplatteninstallation 1 8 
FIELD 68, 79 
Fließkommavariable 26 
FOR-NEXT-Schleife 27, 38 
FREEFILE 61, 148 
Funktionen 30, 36 
Funktionsbibliothek 173 


G 

GET 82 

Glossar 260 

GOTO 27 

Grafik 211 

Grafikkarte 260 

Grafikmodi 1 1 3 

Grafikmodus 113, 122 

Grafikprogrammierung 1 1 3 

Grafikroutinen 115 

GW-Basic 12, 260 

GW-Basic-Programme übernehmen 167 


H 

Haltepunkt 161 
Hardware-Anforderungen 16 
Hilfe-Index 140 
Hilfsdatei erstellen 140 


I 

IDE 260 

INKEY$ 42,73 

INPUT 67, 139 

INPUT# 139 

Installation 16 

Diskette 17 

Festplatte 17 

Integerkonstante 26 

Integervariable 24 

Interpreter 1 1,260 

Interrupt-Programmierung 166 
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Stichwortverzeichnis 


k 

Kommandozeilen-Compiler 171 
Kommentar 48 
Konstante 26 

kontextsensitives Hilfesystem 140 
Kontrollanweisung 27 
Kontrollstruktur 27 
Konvertierfunktionen 21 3 
Konvertierroutine 80 
Koordinatensystem 118 
Kreisdiagramm 118,121 


L 

Laufzeitbibliothek 152 
Laufzeitfehler 68, 120, 129, 132, 
157 

LCASE$ 92 
Lieferumfang 17 
LINE 116, 118, 125 
LINE-INPUT# 139 
Liniendiagramm 1 1 8 
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Markt&Technik WORKSHOP 
Erfolgreich starten - sicher nutzen. 

Power Basic 


Zum Programm 


Power Basic ist ähnlich leistungsfähig wie C 
oder Pascal, von denen viele Sprachelemente 
übernommen wurden. Das bedeutet klare 
Programmstrukturen, hohe Geschwindigkeit 
und hoher Bedienungskomfort. 

Allerdings erschwert die Fülle der Befehle den 
leichten Einstieg. Hier bietet der Autor Hilfe. 


Zum Buch 


Workshop - das heißt: sichere Lernerfolge in 
kürzester Zeit. 


Erfolgreich starten 


Im Einführungskapitel erfahren Sie alles, was 
zum grundlegenden Umgang mit Power Basic 
und dem Buch notwendig ist. Außerdem: Start¬ 
hilfe in Sachen Installation. Das Tutorium führt 
Sie dann in zehn Sitzungen in diese leistungs¬ 
fähige Programmiersprache ein - ausführlich 
und praxisgerecht-, anhand eines nützlichen 
wie auch vielfältigen Projekts. Das Ergebnis: 
Eine Einnahmen-/Ausgabenverwaltung mit 
moderner grafischer Bedienoberfläche. Die 
Routinen für Dateiverwaltung, Grafik oder 
Menüführung lassen sich jederzeit in eigene 
Programme einbinden. 


Sicher nutzen 


Das Kapitel Know-how wird Ihr Ratgeber für die 
tägliche Praxis: häufige Fehlerquellen und ent¬ 
sprechende Lösungsvorschläge; eine umfang¬ 
reiche Sammlung nützlicher Tips und Kniffe 
und vieles mehr. Dann die Referenz: Knapp 
und präzise - alle Befehle auf einen Blick. Als 
nützliche Zugabe: Eine handliche Befehlskarte 
mitdem Allerwichtigsten. Der Abschnitt Schnell¬ 
information bietet schließlich nach dem Motto 
»Wie programmiere ich ...?« eine Reihe von 
ausgewählten Tools zu häufigen Problemen in 
der Praxis. 

Workshop - verständlich und informativ; zu 
populären Themen wie Grafik, Musik, Text¬ 
verarbeitung und Programmiersprachen. 
Herausgegeben von der .TXT Publishing GmbH 
- einem Team aus Fachlektoren und Spezia¬ 
listen, die aus eigener EDV- und Verlagspraxis 
die Informationsbedürfnisse von Computer¬ 
anwendern kennen. 


Systemanforderungen 


Hardware 

IBM-PC/XT/AT oder Kompatible mit mindestens 
512 Kbyte freiem Arbeitsspeicher 
Software 
Power Basic 2.10 



Markt&Technik 


I SBN 3-87791-192-7 

04900 


9 783877 911921 
DM 49- sFr 46,- öS 382- 




















































